Stap 2: Shutdown alternatief
Als alternatief kunt u de volgende tekst het de bodem die in het systeem wordt afgesloten resulteren zal:
strComputer = "." ' Lokale Computer
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)} \\" & _
strComputer & "\root\cimv2")
ColOs instellen = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
Voor elke objOs in colOs
objOs.Win32Shutdown(1)
Volgende
---------------------
BELANGRIJKE opmerking: Als je gaat om toe te voegen van de functie afsluiten, moet u verwijderen de verklaring van de 'end if' aan de onderkant van de oorspronkelijke code. Als 'end if' wordt niet verwijderd, wordt het bestand zal niet werken!