home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Collection - Online Library - January 1996 / CKITOS2196.ISO / diskette / gg244043.dsk / unc.dsk / LS30UTIL / DELUSR.CMD < prev    next >
OS/2 REXX Batch file  |  1993-02-10  |  1KB  |  33 lines
  1. /*******************************************************************/
  2. /* DELUSR.CMD                                                      */
  3. /*                                                                 */
  4. /* Delete users as specified in the argument ACSII file.           */
  5. /*                                                                 */
  6. /* Arguments:                                                      */
  7. /*  users_list_file A file containing userids that will be         */
  8. /*                  transferred                                    */
  9. /*                                                                 */
  10. /*******************************************************************/
  11.  
  12. parse upper arg usrListFile
  13.  
  14. if usrListFile = '' then do
  15.  say 'Specify a user list file'
  16.  exit 9
  17. end
  18.  
  19. /* Ready to read user list file */
  20. userid = linein(usrListFile,1,1)
  21. if userid = '' then do
  22.  say 'Could not obtain User List File'
  23.  exit 9
  24. end
  25.  
  26. do while userid <> ''
  27.  'NET USER ' userid '/DELETE '
  28.  userid = linein(usrListFile,,1)
  29. end
  30.  
  31. exit 0
  32.  
  33.