home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Collection - Online Library - January 1996 / CKITOS2196.ISO / diskette / gg244043.dsk / unc.dsk / LS30UTIL / INSERTU.CMD < prev    next >
OS/2 REXX Batch file  |  1993-02-09  |  833b  |  32 lines
  1. /*******************************************************************/
  2.  
  3. Say 'This program will call many of the REXX functions provided'
  4. Say 'in LS30UT.DLL. The first one is SysLoadFuncs, which makes'
  5. Say 'all the others available.'
  6.  
  7. call RxFuncAdd 'LoadLs30utFuncs', 'LS30UT', 'LoadLs30utFuncs'
  8. call LoadLs30utFuncs
  9. Say 'LoadLs30utFuncs is complete.'
  10.  
  11. dcName = ''
  12.  
  13. parse value GetDCName() with rc dcName
  14.  
  15. say 'Return Code is:' rc
  16. say 'Domain Controller Name is :' dcName
  17.  
  18. server = dcName
  19. dumpfile = 'd:\dump.dat'
  20.  
  21. logfile = 'd:\logit.dat'
  22. /* server = '\\LS3SRV02'   This is the server to insert users */
  23. newpw = 'PASSWORD'
  24.  
  25. rc = InsertAllUsers(server, dumpfile, logfile, newpw)
  26. say 'Return value from InsertAllUsers ' rc
  27.  
  28. call DropLs30utFuncs
  29.  
  30. Say 'The LS30UT functions have now been dropped.'
  31. exit 0
  32.