WinAce_Boy
Power Member
Eu gostaria de saber se é possivel desligar o pc através do VBScript- por exemplo pôr num botão o código para desligar o pc ou assim..
Obrigadão pessoal
Obrigadão pessoal
Const SHUTDOWN = 1
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Win32Shutdown(SHUTDOWN)
Next
<form method="POST" action="--WEBBOT-SELF--"><p>
<input type="button" value="Botão" name="B3"></p>
</form>