Option Explicit

Private Sub Form_Load()
  Dim objWMI As Object

  On Error Resume Next
  Set objWMI = GetObject("WinMgmts:")

  If Err.Number <> 0 Then
    Label1.Visible = True
    Err.Clear
  End If
End Sub

Private Sub Command1_Click()
  'Einfache Variante
  On Error Resume Next

  Dim objWMI    As Object
  Dim colItems  As Object
  Dim objItem   As Object

  'WMI-Objekt erstellen und Abfragen ausführen
  Set objWMI = GetObject( _
        "WinMgmts:{impersonationLevel=impersonate, " & _
        "(Shutdown)}!/root/cimv2")
  Set colItems = objWMI.ExecQuery( _
        "SELECT * FROM Win32_OperatingSystem")

  If Option1(0).Value = True Then
    'Windows neu starten
    For Each objItem In colItems
      objItem.Reboot
    Next objItem
  Else
    'Windows herunterfahren
    For Each objItem In colItems
      objItem.Shutdown
    Next objItem
  End If
End Sub

Private Sub Command2_Click()
  'Komplexe Variante
  On Error Resume Next

  Dim objWMI As Object
  Dim colItems As Object
  Dim objItem As Object

  Dim bytShutdownFlag As Byte

  'WMI-Objekt erstellen und Abfragen ausführen
  Set objWMI = GetObject( _
        "WinMgmts:{impersonationLevel=impersonate, " & _
        "(Shutdown)}!/root/cimv2")

  Set colItems = objWMI.ExecQuery( _
        "SELECT * FROM Win32_OperatingSystem")

  If Option2(0).Value = True Then
    'Windows neu starten
    bytShutdownFlag = 0
  End If

  If Option2(1).Value = True Then
    'Windows herunterfahren
    bytShutdownFlag = 1
  End If

  If Option2(2).Value = True Then
    'Windows herunterfahren - PC ausschalten
    bytShutdownFlag = 8
  End If

  If Option2(0).Value = True Then
    'Aktuellen Benutzer abmelden
    bytShutdownFlag = 2
  End If

  'Funktion erzwingen
  If Check1.Value = 1 Then
    bytShutdownFlag = bytShutdownFlag + 4
  End If

  'Auswahl ausführen
  For Each objItem In colItems
    objItem.Win32Shutdown (bytShutdownFlag)
  Next objItem
End Sub