Цитата 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
