home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 8 Other
/
08-Other.zip
/
forcelog.zip
/
FORCELOG.CMD
next >
Wrap
OS/2 REXX Batch file
|
1996-03-07
|
549b
|
24 lines
/* Force Users off the server */
say "Pausing services so new users can't log on."
'@net pause srv >\DEV\NUL'
'@net pause netlogon >\DEV\NUL'
say
'@rxqueue /clear'
'@net session | rxqueue'
do while queued() > 0
pull machine user .
if left(machine,2) = '\\' then do
say "Disconnecting" user
'@net session' machine '/delete /y'
end
end
say
say "All users have been disconnected from this server."
say "To allow reconnection, type these commands:"
say
say " NET CONTINUE SERVER"
say " NET CONTINUE NETLOGON"