[решено] vbs скрипт. При нажатии "да" окно должно закрываться, при нажатии "нет" комп должен в

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] vbs скрипт. При нажатии "да" окно должно закрываться, при нажатии "нет" комп должен в (http://forum.oszone.net/showthread.php?t=248807)

mihanklinov@vk

10-12-2012 16:08 2042488

vbs скрипт. При нажатии "да" окно должно закрываться, при нажатии "нет" комп должен в

Вот код:

PushButtоn = MsgBox ("Ты хочешь воспользоваться компьютером?", 36, " ")
If pushbutton=1 Then
cancel=false
ElseIf pushbutton=0 Then
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 "Тогда до свидания!"
highlight: vbscript
end if

Что и где неправильно?

Iska	10-12-2012 17:39 2042545

1. Это не код. Вот код:

Код:

Это код

2. Что Вы хотели получить? Внятным русским языком.

mihanklinov@vk

10-12-2012 19:38 2042641

При нажатии "да" окно должно закрываться, при нажатии "нет" комп должен выключаться

Iska	10-12-2012 20:18 2042676

Цитата:

Цитата mihanklinov@vk

При нажатии "да" окно должно закрываться, при нажатии "нет" комп должен выключаться »

Код:

Option Explicit



Dim objSWbemObjectEx



If MsgBox("Ты хочешь воспользоваться компьютером?", vbQuestion + vbYesNo) <> vbYes Then

        With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")

                .Security_.Privileges.AddAsString "SeShutdownPrivilege"

                

                For Each objSWbemObjectEx In .ExecQuery("SELECT * FROM Win32_OperatingSystem WHERE Primary='True'")

                        objSWbemObjectEx.ShutDown

                        

                        Exit For

                Next

        End With

End If



WScript.Quit 0

Время: 19:39.