IBM OS/2 LAN Server REXX Utility DLL

Inf-HTML [About][Toc][Index] 0.9b (c) 1995 Peter Childs

NETBIOS Enumerate



The function returns information on all network device drivers installed 
on a computer.   



Syntax 



MyRc = NetEnumerate(NETBIOS, 'netBiosInfo')
MyRc = NetEnumerate(NETBIOS, 'netBiosInfo', SrvName)




  



Parameters 



The parameters specified are: 



'netBiosInfo'     The REXX variable receiving the result. The variable is 
                  divided into: 



   o netBiosInfo.0 



     The number of netbios device drivers 



   o netBiosInfo.i 



     The netbios device driver name entry i, where the variable i has a 
     value from 1 to netBiosInfo.0 



SrvName           The requester or server computer name 
  



Note 



The server computer name can be specified as '' for a local computer 



There call to NetEnumerate with 2 parameters is identical to the call with 
3 parameters where SrvName is set to ''. 



Example   



/* List NetBIOS device drivers names */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETBIOS = 90
SrvName = '\\DOMAIN_CONTRLR'

myRc = NetEnumerate(NETBIOS, 'netBiosInfo', SrvName)

if myRc <> '0' then do
 say 'Got error from NetEnumerate() ' myRc
 call DropLsRxutFuncs
 exit 9
end

if netBiosInfo.0 = 0 then do
 say 'No driver information'
 call DropLsRxutFuncs
 exit 0
end

say 'Number of NetBIOS device drivers: ' netBiosInfo.0
say

do i=1 to netBiosInfo.0
 say netBiosInfo.i
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0




  



Example Output   



Number of NetBIOS device drivers:  1

NETLB









Inf-HTML End Run - Successful