IBM OS/2 LAN Server REXX Utility DLL

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

NETUSERINITDCDB Add



The function creates a new userid entry and forces the creation of the 
\IBMLAN\DCDB\USERS\userid directory on the Domain Controller. The function 
is otherwise identical to NetAdd(NETUSER). 



Syntax 



MyRc = NetAdd(NETUSERINITDCDB, 'userInfo', SrvName)




  



Example   



/* Add a userid and make DCDBInit request */
call RxFuncAdd 'LoadLsRxutFuncs', 'LSRXUT', 'LoadLsRxutFuncs'
call LoadLsRxutFuncs

NETUSERINITDCDB = 290
SrvName = '\\ILIDC'

userInfo.name     = 'WST1'
userInfo.password = 'PASSWORD'
userInfo.priv     = 'User'
userInfo.home_dir = ''
userInfo.comment  = 'Workstation with DCDB directory'

myRc = NetAdd(NETUSERINITDCDB, 'userInfo', SrvName)

if myRc <> '0' then do
 say 'Got error from NetAdd() ' myRc
 call DropLsRxutFuncs
 exit 9
end
else do
 say
 say 'Userid successfully added'
end

call DropLsRxutFuncs
call RxFuncDrop 'LoadLsRxutFuncs'

exit 0




  



Example Output   



Userid successfully added









Inf-HTML End Run - Successful