[Секреты ПК] Целых 5... Скрипты VBS #6

Показать описание

Скрипт №1

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}" ).ExecQuery("select * from Win32_OperatingSystem where Primary=true" )
For Each OpSys In OpSysSet
OpSys.Reboot()
Next

Скрипт №2

Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()

Скрипт №3

If CreateObject("WScript.Shell").Run("ping -n 10 74.125.232.56", 0, True) = 0 Then MsgBox "Интернет включен" Else MsgBox "Интернет выключен"

Скрипт №4

CreateObject("SAPI.SpVoice").Speak"DESTERITE"

Скрипт №5

p="C:\Games"
a=inputbox ("Пароль")
if a="123" then
msgbox "Пароль принят"
CreateObject("WScript.Shell").run p
else
MsgBox "Пароль неверный"
End if

Окончание конкурса завтра....