IBM OS/2 LAN Server REXX Utility DLL

0.9b (c) 1995 Peter Childs

NETBIOS Get Info

The function returns information about a particular network device driver 
installed on a computer.   

Syntax 

MyRc = NetGetInfo(NETBIOS, 'netBiosInfo', SrvName, NetName)

Parameters 

The parameters specified are: 

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

   o netBiosInfo.name 

     The name of the network. For example 'NET1' or 'NETLB' 

   o netBiosInfo.driver_name 

     The network device driver name that the LAN Server software uses 

   o netBiosInfo.lana_num 

     The LAN adapter number 

   o netBiosInfo.driver_type 

     The device driver protocol type 

   o netBiosInfo.net_status 

     The status of the device driver 

   o netBiosInfo.net_bandwidth 

     The number of bytes per second that the network hardware accommodates 
     

   o netBiosInfo.max_sess 

     The maximum number of concurrent sessions that the device driver can 
     establish 

   o netBiosInfo.max_ncbs 

     The maximum number of NCBs that can be outstanding at any time 

   o netBiosInfo.max_names 

     The maximum number of network names that a network (netBiosInfo.name) 
     can establish 

SrvName        The server computer name 

NetName        The network name 
  

Note 

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

Example   

/* Get NetBios information for NET1 */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETBIOS = 90
SrvName = '\\FSC30DCR'
NetName = 'NET1'

myRc = NetGetInfo(NETBIOS, 'netBiosInfo', SrvName, NetName)

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

say
say "Netbios net_name:     " netBiosInfo.net_name
say "Netbios driver_name:  " netBiosInfo.driver_name
say "Netbios lana num:     " netBiosInfo.lana_num
say "Netbios driver_type:  " netBiosInfo.driver_type
say "Netbios net status:   " netBiosInfo.net_status
say "Netbios net bandwidth:" netBiosInfo.net_bandwidth
say "Netbios max sessions: " netBiosInfo.max_sess
say "Netbios max ncbs:     " netBiosInfo.max_ncbs
say "Netbios max names:    " netBiosInfo.max_names

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0

Example Output   

Netbios net_name:      NET1
Netbios driver_name:   NETBEUI$
Netbios lana num:      0
Netbios driver_type:   Network Control Block Protocol
Netbios net status:    The network software is started.
Netbios net bandwidth: 524288
Netbios max sessions:  32
Netbios max ncbs:      50
Netbios max names:     14

Inf-HTML End Run - Successful