home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Collection - Online Library - January 1996 / CKITOS2196.ISO / diskette / gg244043.dsk / unc.dsk / LS30UTIL / DMPALLU.CMD < prev    next >
OS/2 REXX Batch file  |  1993-02-10  |  1KB  |  39 lines
  1. /*******************************************************************/
  2. /* DMPALLU.CMD                                                     */
  3. /*                                                                 */
  4. /* Dump all user information from one domain as preparation for    */
  5. /* transfer to another domain                                      */
  6. /*                                                                 */
  7. /* Arguments:                                                      */
  8. /*  dumpfile        A file that will contain the binary user       */
  9. /*                  information                                    */
  10. /*                                                                 */
  11. /*******************************************************************/
  12.  
  13. parse upper arg dumpFile
  14.  
  15. if dumpFile = '' then
  16.  dumpFile = 'C:\DUMPFILE.BIN'
  17.  
  18. /* Get access to LS30UT.DLL functions */
  19. call RxFuncAdd 'LoadLs30utFuncs', 'LS30UT', 'LoadLs30utFuncs'
  20. call LoadLs30utFuncs
  21.  
  22. parse value GetDCName() with rc dcName
  23.  
  24. if rc <> '0' then do
  25.  say 'Could not obtain Domain Controller name'
  26.  exit 9
  27. end
  28.  
  29. if dcName = '' then do
  30.  say 'Could not obtain Domain Controller name'
  31.  exit 9
  32. end
  33.  
  34. rc = DumpAllUsers( dcName, dumpFile )
  35. say 'DumpAllUsers() returned ' rc
  36.  
  37. call DropLs30utFuncs
  38. exit 0
  39.