Sub ShutDown()
 
        Dim ms As System.Management.ManagementScope = New _
          System.Management.ManagementScope("\\LocalHost\root\cimv2")
 
        ms.Options.EnablePrivileges = True
 
        ' Verwende diesen Eigenschaften wenn es Probleme mit den Rechten gibt
 
        'ms.Options.Password = ""
 
        'ms.Options.Username = ""
 
        Dim oq As System.Management.ObjectQuery = New _
          System.Management.ObjectQuery("SELECT * FROM Win32_OperatingSystem")
 
        Dim query1 As ManagementObjectSearcher = New ManagementObjectSearcher( _
          ms, oq)
 
        Dim queryCollection1 As ManagementObjectCollection = query1.Get()
 
        For Each mo As ManagementObject In queryCollection1
 
            Dim ss As String() = {"2", "0"} ' Reboot
 
            'Dim ss As String() = {"2", "2"} ' Logoff
 
            'Dim ss As String() = {"0", "0"} ' Shutdown
 
            mo.InvokeMethod("Win32Shutdown", ss)
 
        Next
 
    End Sub

(Visual Basic .net - Version 2008)