home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / ls4adm.zip / ForceLog.cmd < prev    next >
OS/2 REXX Batch file  |  1994-07-12  |  550b  |  24 lines
  1. /* Force Users off the server */
  2.  
  3. say "Pausing services so new users can't log on."
  4. '@net pause srv >\DEV\NUL'
  5. '@net pause netlogon >\DEV\NUL'
  6. say
  7.  
  8. '@rxqueue /clear'
  9. '@net session | rxqueue'
  10. do while queued() > 0
  11.   pull machine user .
  12.   if left(machine,2) = '\\' then do
  13.     say "Disconnecting" user
  14.     '@net session' machine '/delete /y'
  15.   end
  16. end
  17.  
  18. say
  19. say "All users have been disconnected from this server."
  20. say "To allow reconnection, type these commands:"
  21. say
  22. say "   NET CONTINUE SERVER"
  23. say "   NET CONTINUE NETLOGON"
  24.