SanyaJoker, попробуйте так:
Код:
strComputer = "."
strNamespace = "Root\CIMV2"
strClass = "Win32_OperatingSystem"
Set objClass = GetObject("WinMgmts:{(Shutdown,RemoteShutdown)}!\\" & strComputer & "\" & strNamespace & ":" & strClass)
Set colInstances = objClass.Instances_
For Each objInstance In colInstances
iAnswer = MsgBox("Выключить компьютер сейчас?", vbQuestion + vbOKCancel, "Завершение работы...")
If iAnswer = vbOK Then
objInstance.Shutdown()
End if
Next
