WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

WIL Extenders
plus
!! WIL SDK !!
plus
ADSI
plus
Control Manager
plus
CPU
plus
EHLLAPI
plus
File Searcher
plus
Huge Math
plus
IP Grabber
plus
JSON
plus
MAPI
plus
ODBC
plus
Postie
plus
Printer Controller
plus
Process ID
plus
RAS
plus
Reggie
plus
Serial
plus
ShellOp
plus
SQLite
plus
Terminal Server
plus
WILX
plus
WinInet
plus
Winsock
plus
WLAN
plus
Zipper
plus
_Obsolete Extenders
plus
_Third Party Extenders

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Get List of Loaded Extenders

; Get list of loaded Extenders
; Note: Unfortunately this code requires the use of the Process Extender therefore it will always be listed
; This portion of the script needs to be compiled
If RtStatus() == 1 ;Compiled

   ver =  StrUpper(Version())
   verdll =  StrUpper(VersionDLL())
   letters =  StrUpper(StrSub(verdll,StrLen(verdll)-1,2))
   wildll = StrCat( DirHome(), 'WBD', letters, '44I.DLL' )

   exename = WinExename( '' )
   AddExtender("wproc44i.dll")

   proclist=tListProc()
   newproclist = ''
   For y = 1 To ItemCount( proclist, @TAB )
      procid = ItemExtract( y, proclist, @TAB )
      newproclist = newproclist: @TAB: ItemExtract( 1, procid, '|' )
   Next
   newproclist = StrTrim( newproclist )
   pos = ItemLocate( FileRoot( exename ), newproclist, @TAB )
   process = ItemExtract(pos , newproclist, @TAB )
   ;Askitemlist("All processes",proclist,@TAB,@UNSORTED,@SINGLE)
   ; parse off process id
   procid=ItemExtract( 2, ItemExtract(pos,proclist,@TAB), '|' )

   modlist=tListMod(procid,0)
   ;Check each module
   list = ''
   For z = 1 To ItemCount( modlist, @TAB )
      module = ItemExtract(1, ItemExtract( z, modlist, @TAB ), '|' )
      If (module == exename) || (module == wildll) Then Continue
      company = FileVerInfo( module , "", "CompanyName")
      If StrIndexNC( company, 'windowware', 1, @FWDSCAN )
           list = list : @TAB : module
      EndIf
      list = StrTrim( list )
   Next
   AskItemlist( 'List of loaded Extenders', list, @TAB, @SORTED, @SINGLE )

Else
   Pause('Notice','This script needs to be run compiled')
EndIf

Article ID:   W17362

File Created: 2011:09:14:13:41:02
Last Updated: 2011:09:14:13:41:02