vbs скрипт для завершения работы сервера

dim WshShell, off, reboot
Set WshShell = CreateObject("WScript.Shell")
reboot = MsgBox("Начать перезагрузку сервера?", 4116, "Подтверждение")
if reboot = 7 then
off = MsgBox("Завершить работу сервера?", 4116, "Подтверждение")
if off = 6 then
shash()
WshShell.Run "shutdown -s -t 0"
end if
else
shash()
WshShell.Run "shutdown -r -t 0"
end if

Function shash()
message = "ВНИМАНИЕ! Через 10 минут произойдет отключение сервера." & chr(13) & chr(10) & "Просим сохранить данные и завершить работу с ресурсами сервера."
WshShell.Run "net.exe send /users " & message
WScript.Sleep 300000
message = "ВНИМАНИЕ! Через 5 минут произойдет отключение сервера." & chr(13) & chr(10) & "Просим сохранить данные и завершить работу с ресурсами сервера."
WshShell.Run "net.exe send /users " & message
WScript.Sleep 240000
message = "ВНИМАНИЕ! До завершения работы сервера осталась 1 минута." & chr(13) & chr(10) & "Просим немедленно сохранить данные и завершить работу с ресурсами сервера."
WshShell.Run "net.exe send /users " & message
WScript.Sleep 30000
message = "ВНИМАНИЕ! До завершения работы сервера осталось 30 секунд." & chr(13) & chr(10) & "Просим немедленно сохранить данные и завершить работу с ресурсами сервера."
WshShell.Run "net.exe send /users " & message
WScript.Sleep 20000
message = "ВНИМАНИЕ! До завершения работы сервера осталось 10 секунд." & chr(13) & chr(10) & "Просим немедленно сохранить данные и завершить работу с ресурсами сервера."
WshShell.Run "net.exe send /users " & message
WScript.Sleep 10000

end function


Комментариев нет:

Отправить комментарий

Популярные сообщения