0.9b (c) 1995 Peter Childs
The function gets global modals related information for all user accounts and groups in the user accounts subsystem (UAS) database.
Syntax
MyRc = NetGetInfo(NETUSERMODALS, 'userModalsInfo', SrvName)
Parameters
The parameters specified are:
'userModalsInfo' The REXX variable receiving the result. The variable is divided into:
o userModalsInfo.min_passwd_len
The minimum password length
o userModalsInfo.max_passwd_age
The maximum password age in days
o userModalsInfo.min_passwd_age
The minimum password age in days
o userModalsInfo.force_logoff
The length of time (in seconds) after the valid logon hours that the user should be forced off the network
o userModalsInfo.password_hist_len
The length of the password history, that is, the number of passwords in the history buffer that are scanned versus the new password in a password change attempt
SrvName The server computer name of the domain controller
Note
The server computer name can be specified as '' for a local domain controller.
Example
/* Get user modals information */ call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs' call LoadLsRxutFuncs NETUSERMODALS = 360 SrvName = '\\ILIDC' myRc = NetGetInfo(NETUSERMODALS, 'userModalsInfo', SrvName) if myRc <> '0' then do say 'Got error from NetGetInfo() ' myRc call DropLsRxutFuncs exit 9 end say say 'Minimum password length: ' userModalsInfo.min_passwd_len say 'Maximum password age: ' userModalsInfo.max_passwd_age say 'Minimum password age: ' userModalsInfo.min_passwd_age say 'Forced logoff time: ' userModalsInfo.force_logoff say 'Password history length: ' userModalsInfo.password_hist_len call DropLsRxutFuncs call RxFuncDrop 'LoadLsRxutFuncs' exit 0
Example Output
Minimum password length: 4 Maximum password age: Unlimited Minimum password age: No delay required Forced logoff time: Never Password history length: 8
Inf-HTML End Run - Successful