IBM OS/2 LAN Server REXX Utility DLL


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


NETSHARECHECK Get Info


The function retrieves information about a particular shared resource on a 
server.   
Syntax 


MyRc = NetGetInfo(NETSHARECHECK, 'checkInfo', SrvName)

  
Parameters 
The parameters specified are: 
'checkInfo'       The REXX variable required and receiving the result. The 
                  variable is divided into: 
   o shareInfo.devicename 
     The device name to query 
   o shareInfo.type 
     The returned share type, if the device is shared 
SrvName           The server computer name 
  
Note 
The server computer name can be specified as '' for a local server.   
Example   


/* Net share check */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETSHARECHECK        = 210
ComputerName         = '\\KING_BALU'
checkInfo.devicename = 'Q:'

myRc = NetGetInfo(NETSHARECHECK, 'checkInfo', ComputerName)

if myRc <> '0' then do
 say 'Got error from NetGetInfo() ' myRc
 rcCode = 9
end
else do
 say "Share type" checkInfo.type
 rcCode = 0
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit rcCode

exit 0

  
Example Output   


Share type  Disk Drive

  

Inf-HTML End Run - Successful