Скрипт для выключения компьютера - Общение о разном

18:49:14

, 24.11.2024, Вс | RSS Правила сайта и форума Задать вопрос администрации Получить услуги сайта Вступить в команду сайта Наша группа в Telegram

Natus Create - Студия по созданию веб-сайтов

Страница 1 из 1
1

Скрипт для выключения компьютера

[K]api[Q]

Дата: Пн, 12.12.2011, 14:48:42 | Сообщение # 1

Мошенник

164 Сообщения:

18 Награды:

ICQ пользователя:

Skype пользователя:

Скрипт при открытии которого выключается компьютер. Отличный способ помочь другу выйти с сети пораньше

Собственно создаем файл 1.vbs с содержимым:

Код:
/-----------------------------------/
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "Ваш текст, от насмешки до угрозы :)"
/-----------------------------------/

Если нам нужно поставить время, например что бы компьютер выключился через 60 секунд, то прописываем:

Код:
/-----------------------------------/
WScript.Sleep 60000

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "Ваш текст, от насмешки до угрозы :)"
/-----------------------------------/

Игорь

Дата: Пн, 12.12.2011, 14:50:20 | Сообщение # 2