Option Explicit On
 
Option Strict Off
 
 
 
Public Class Form1
 
    ' Einige der wichtigsten Flags
    Const EWX_LOGOFF As Integer = 0             ' Abmelden
    Const EWX_SHUTDOWN As Integer = 1           ' Herunterfahren
    Const EWX_REBOOT As Integer = 2             ' Neustart
    Const EWX_FORCE As Integer = 4              ' Aktion erzwingen
    Const EWX_POWEROFF As Integer = 8           ' Ausschalten
    ' **********************************************************************
 
    Private Sub btn_Ausfuehren_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Ausfuehren.Click
        Dim obj_Betriebssystem As Object
        Dim obj_Eigenschaft As Object
 
        obj_Betriebssystem = GetObject( _
          "winmgmts:{impersonationLevel=impersonate,(Shutdown)}" & _
          "//./root/cimv2").ExecQuery("SELECT * FROM Win32_OperatingSystem")
 
        If rdb_Herunterfahren.Checked Then
            For Each obj_Eigenschaft In obj_Betriebssystem
                obj_Eigenschaft.Win32Shutdown(EWX_SHUTDOWN) '+ EWX_FORCE)
            Next
 
        ElseIf rdb_NeuStarten.Checked Then
            For Each obj_Eigenschaft In obj_Betriebssystem
                obj_Eigenschaft.Win32Shutdown(EWX_REBOOT) '+ EWX_FORCE)
            Next
 
        ElseIf rdb_Abmelden.Checked Then
            For Each obj_Eigenschaft In obj_Betriebssystem
                obj_Eigenschaft.Win32Shutdown(EWX_LOGOFF) '+ EWX_FORCE)
            Next
 
        ElseIf rdb_Abschalten.Checked Then
            For Each obj_Eigenschaft In obj_Betriebssystem
                obj_Eigenschaft.Win32Shutdown(EWX_POWEROFF) '+ EWX_FORCE)
            Next
 
        End If
 
    End Sub
 
End Class