home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / mued102b.zip / upguser.cmd < prev    next >
OS/2 REXX Batch file  |  1995-01-20  |  586b  |  28 lines
  1. /* MUEd/PM User Upgrade Script */
  2.  
  3. upgradePriv = 'NORMAL'
  4. searchPriv = 'LIMITED'
  5.  
  6. userCount = MED_QueryUserCount()
  7.  
  8. if userCount <> 'ERROR' Then Do
  9.     Say
  10.     Do i = 0 to userCount - 1
  11.         if MED_QueryPriviledge(i) = searchPriv Then Do
  12.             if MED_QuerySysCalls(i) >= 4 Then Do
  13.                 MED_SetPriviledge(i, upgradePriv)
  14.                 Say 'User 'MED_QueryName(i)' was upgraded.'
  15.             End
  16.         End
  17.     End
  18. End
  19. Else Do
  20.     Say 'There was an error getting the user count.'
  21. End
  22.  
  23. Say
  24. Say 'Click SEND to Continue. . .'
  25. Pull .
  26.  
  27. Exit 0
  28.