[Секреты ПК] Целых 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 Окончание конкурса завтра.... JOIN QUIZGROUP PARTNER PROGRAM: http://join.quizgroup.com/?ref=82780