Dim strComputer As String
        Dim objWMIService As Object
        Dim colComputer As Object
        Dim objComputer As Object
        strComputer = "." 'Hier den Remote-PC eintragen
 
        objWMIService = GetObject("winmgmts:" _
            & "{impersonationLevel=impersonate}!\\" & strComputer & _
            "\root\cimv2")
        colComputer = objWMIService.ExecQuery _
            ("Select * from Win32_ComputerSystem")
        For Each objComputer In colComputer
            Console.WriteLine(objComputer.UserName)
        Next