This page is hosted for free by zzz.com.ua, if you are owner of this page, you can remove this message and gain access to many additional features by upgrading your hosting to PRO or VIP for just 32.50 UAH.
Do you want to support owner of this site? Click here and donate to his account some amount, he will be able to use it to pay for any of our services, including removing this ad.
Сисадминко
Системный администратор



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


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

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

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

компьютера или сервера необходимо быть в группе Администраторы удаленного компа. Скопируйте нужный приведенный ниже пример, вставьте в блокнот и сохраните с расширением 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
Просмотров: 1271
Сегодня Среда, 11 декабря 2019 года.

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


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



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