zyclop
Erfahrenes Mitglied
Danke für die schnelle Antwort...
Wenn ich die datei starten will dann gibt er mir eine Fehlermeldung, ich habe ein Bild angehängt dort ist er beschrieben.
Das ist der Code
Wenn ich die datei starten will dann gibt er mir eine Fehlermeldung, ich habe ein Bild angehängt dort ist er beschrieben.
Das ist der Code
Code:
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(1)
Next
Zuletzt bearbeitet: