Dim WMI As Object
    Dim colOperatingSystems As Object
    Const SHUTDOWN = 1 'Normal --> Sie können jetzt den Computer abschalten.
    Const TURNOFF = 8 'Normal --> BLACKSCREEN
    Dim strComputer As String = "COMPINAME" 'Compitername "." für localen
        WMI = GetObject("winmgmts:{impersonationLevel=impersonate," & _
          "RemoteShutdown)}!\\" & strComputer & "\root\cimv2")
 
        colOperatingSystems = WMI.ExecQuery("SELECT * FROM" & _
          "Win32_OperatingSystem")
        Dim objOperatingSystem As Object
        For Each objOperatingSystem In colOperatingSystems
            objOperatingSystem.Win32Shutdown(TURNOFF)
        Next