Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private Sub Button1_Click_1(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim oBetriebssystem, oEigenschaft As Object
    oBetriebssystem = GetObject( _
       "winmgmts:{impersonationLevel=impersonate,(Shutdown)}" & _
       "//./root/cimv2").ExecQuery( _
       "SELECT * FROM Win32_OperatingSystem")

    If RadioButton1.Checked = True Then
      If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
            "und der Computer heruntergefahren.", _
            "Computer herunterfahren", _
            MessageBoxButtons.OKCancel) = DialogResult.OK Then
        For Each oEigenschaft In oBetriebssystem
          oEigenschaft.Shutdown()
        Next
      End If
    Else
      If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
            "und der Computer neu gestartet.", _
            "Computer neu starten", _
            MessageBoxButtons.OKCancel) = DialogResult.OK Then
        For Each oEigenschaft In oBetriebssystem
          oEigenschaft.Reboot()
        Next
      End If
    End If
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click

    Dim oBetriebssystem, oEigenschaft As Object
    Dim bytErzwingen As Byte

    oBetriebssystem = GetObject( _
       "winmgmts:{impersonationLevel=impersonate,(Shutdown)}" & _
       "//./root/cimv2").ExecQuery( _
       "SELECT * FROM Win32_OperatingSystem")

    If CheckBox1.Checked = True Then
      bytErzwingen = 4
    End If

    If RadioButton3.Checked = True Then
      If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
            "und der Computer heruntergefahren.", _
            "Computer herunterfahren", _
            MessageBoxButtons.OKCancel) = DialogResult.OK Then
        For Each oEigenschaft In oBetriebssystem
          oEigenschaft.Win32Shutdown(1 + bytErzwingen)
        Next
      End If
    End If

    If RadioButton4.Checked = True Then
      If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
            "und der Computer neu gestartet.", _
            "Computer neu starten", _
            MessageBoxButtons.OKCancel) = DialogResult.OK Then
        For Each oEigenschaft In oBetriebssystem
          oEigenschaft.Win32Shutdown(2 + bytErzwingen)
        Next
      End If
    End If

    If RadioButton5.Checked = True Then
      If MessageBox.Show("Der aktuelle Benutzer wird " & _
            "abgemeldet.", "Benutzer abmelden", _
            MessageBoxButtons.OKCancel) = DialogResult.OK Then
        For Each oEigenschaft In oBetriebssystem
          oEigenschaft.Win32Shutdown(0 + bytErzwingen)
        Next
      End If
    End If

    If RadioButton6.Checked = True Then
      If MessageBox.Show("Die Windows-Sitzung wird beendet " & _
            "und der Computer abgeschalten.", _
            "Computer ausschalten", _
            MessageBoxButtons.OKCancel) = DialogResult.OK Then
        For Each oEigenschaft In oBetriebssystem
          oEigenschaft.Win32Shutdown(8 + bytErzwingen)
        Next
      End If
    End If
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    Me.Close()
  End Sub
End Class