[Iska]

Что необходимо сделать (или дописать), что бы если пользователь не нажимает кнопки (не "да" ни "нет)- программа выключила ПК? »

Код:

Option Explicit

Select Case WScript.CreateObject("WScript.Shell").Popup("Shutdown this PC (automatically reply «Yes» after 15 seconds delay)?", 15, "Shutdown this PC", vbYesNoCancel + vbQuestion)
	Case vbYes, -1
		' Place here shutdown code
	Case Else
		' Nothing to do
End Select

WScript.Quit 0