Sub Reboot(ByVal ByVal sKnotenname As String)
 
        Dim mo As Management.ManagementObject
        Dim mc As Management.ManagementClass
        Dim menge As ManagementObjectCollection
 
        ' --- Zugriff auf Klasse
        mc = New ManagementClass("\\" & sKnotenname  &  _
          "\root\CIMV2:Win32_OperatingSystem")
        ' --- Instanzen holen
        menge = mc.GetInstances
 
 
 
        For Each mo In menge
            Debug.WriteLine("Informationen über das Betriebssystem auf: " & _
              mo.Path.Server)
            Debug.WriteLine("Name: " & mo("Name"))
            Debug.WriteLine("Hersteller: " & mo("Manufacturer"))
            Debug.WriteLine("Typ: " & mo("OSType").ToString)
            Debug.WriteLine("Sprache: " & mo("OSLanguage").ToString)
            Debug.WriteLine("Version: " & mo("Version"))
            Debug.WriteLine("Systemverzeichnis: " & mo("SystemDirectory"))
            Debug.WriteLine("Registrierter Benutzer: " & mo("RegisteredUser"))
            Debug.WriteLine("Reboot wird initiert...")
            mo.InvokeMethod("reboot", Nothing)
            Debug.WriteLine("Reboot eingeleitet!")
        Next
    End Sub