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

Собственно создаем файл 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 "Ваш текст, от насмешки до угрозы :)"
/-----------------------------------/