Сисадминко
Системный администратор



СисАдмин - Софт, утилиты, скрипты, советы СисАдмин Советы Перезагрузка (выключение) компьютера или сервера


Перезагрузка (выключение) компьютера или сервера

Для удаленной

перезагрузки или выключения

компьютера или сервера необходимо быть в группе Администраторы удаленного компа. Скопируйте нужный приведенный ниже пример, вставьте в блокнот и сохраните с расширением vbs.

Перезагрузка

:

On Error Resume Next
Set objShell = CreateObject("Wscript.Shell")
comp="192.168.1.10" ' перезагружаемый комп

Rez=MsgBox("Уверены что хотите перезагрузить "+comp+"?",vbYesNo,"Внимание!")
If rez=6 then
return=objShell.Run("shutdown /r /f /m "+"\\"+comp+" /d p:6:11",0,False)
End If

Выключение

:

On Error Resume Next
Set objShell = CreateObject("Wscript.Shell")

Rez=MsgBox("Уверены что хотите выключить сервера?",vbYesNo,"Внимание!")
If rez=6 then
return=objShell.Run("shutdown /s /f /m \\192.168.1.10 /d p:6:11",0,False)
WScript.sleep(500)
return=objShell.Run("shutdown /s /f /m \\192.168.1.11 /d p:6:11",0,False)
End If


( 4 Голосов )

E-mail
Просмотров: 980
Сегодня Понедельник, 20 ноября 2017 года.

Полезные ссылки


- Заработок, продвижение сайта, раскрутка сайта



© SysAdminUS All Rights Reserved. Копирование и распространение материалов запрещено. (УК РФ Статья 146, глава 19).
Размещение скриптов и программ допускается в том виде в котором они есть с обязательной ссылкой на данный сайт.