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

Iska · Отправлено: **17:39, 10-12-2012** | #2

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

Код:

Это код

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

mihanklinov@vk · Отправлено: **19:38, 10-12-2012** | #3

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

Iska · Отправлено: **20:18, 10-12-2012** | #4

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