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

[mihanklinov@vk]

Вот код:

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]

1. Это не код. Вот код (http://forum.oszone.net/misc.php?do=bbcode#code):
Это код

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

[mihanklinov@vk]

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

[Iska]

При нажатии "да" окно должно закрываться, при нажатии "нет" комп должен выключаться »
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