0.9b (c) 1995 Peter Childs
The function enumerates logged on user accounts.
Syntax
MyRc = NetEnumerate(NETLOGON, 'logonInfo') MyRc = NetEnumerate(NETLOGON, 'logonInfo', SrvName)
Parameters
The parameters specified are:
'logonInfo' The REXX variable receiving the result. The variable is divided into:
o logonInfo.0
The number of user account names logged on
o logonInfo.i
The user account name i, where the variable i has a value from 1 to logonInfo.0
o logonInfo.totalentries
The total number of entries available. If many entries are avaiable the number of entries returned (logonInfo.0) is not identical to the total numbers available
SrvName The server computer name. If the server computer name is '', this will be identical as a call to NetEnumerate(NETLOGON) with only two parameters (local server)
Note
The server computer name can be specified as '' for a local server.
Example
/* List logged on users accounts */ call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs' call LoadLsRxutFuncs NETLOGON = 50 SrvName = '\\ITSCSV00' myRc = NetEnumerate(NETLOGON, 'logonInfo', SrvName) if myRc <> '0' then do say 'Got error from NetEnumerate() ' myRc call DropLsRxutFuncs exit 9 end if logonInfo.0 = 0 then do say 'No user accounts logged on' call DropLsRxutFuncs exit 0 end say 'Number of user entries: ' logonInfo.0 say do i=1 to logonInfo.0 say logonInfo.i end call DropLsRxutFuncs call RxFuncDrop 'LoadLsRxutFuncs' exit 0
Example Output
Number of user entries: 9 BERIT A948R11 ITSCAIX1 SHIMIZU A948R29 N$HUY A948R33 JACOBB A948R30
Inf-HTML End Run - Successful