0.9b (c) 1995 Peter Childs
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