Public Class Form1
    Inherits System.Windows.Forms.Form
    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")
 
        For Each oEigenschaft In oBetriebssystem
            oEigenschaft.Shutdown()
        Next
 
 
    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")
 
        bytErzwingen = 4
 
    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