home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / mued102b.zip / prnusers.cmd < prev    next >
OS/2 REXX Batch file  |  1995-01-20  |  482b  |  25 lines
  1. /* MUEd/PM User List Script */
  2.  
  3. userCount = MED_QueryUserCount()
  4.  
  5. PrnFile = 'USER.LST'
  6.  
  7. Say 'Creating user list for printer. . .'
  8. Do i = 0 to userCount - 1
  9.     Call LineOut PrnFile,,
  10.                  Left(i,5)' 'Left(MED_QueryName(i),25)' 'MED_QueryPriviledge(i)
  11. End
  12. Call Stream PrnFile, 'c', 'close'
  13.  
  14. Say 'Copying list to printer. . .'
  15. dosCmd = 'copy 'PrnFile' PRN'
  16. dosCmd
  17. dosCmd = 'del 'PrnFile
  18. dosCmd
  19.  
  20. Say
  21. Say 'Click SEND to Continue. . .'
  22. Pull .
  23.  
  24. Exit 0
  25.