Dim RemoteKey As RegistryKey
 
        Try
            RemoteKey = RegistryKey.OpenRemoteBaseKey(RegistryHive.CurrentUser, _
              sComp).OpenSubKey("Software\Microsoft\Windows" & _
              "NT\CurrentVersion\Devices", False)
        Catch ex As Exception
            erg_print.Text = ex.Message
            Return
        End Try
 
 
        For Each valueName As String In RemoteKey.GetValueNames()
            erg_print.Items.Add(valueName)
        Next
 
        RemoteKey.Close()

Dim Werte As String
 
        Werte = RegistryKey.OpenRemoteBaseKey(RegistryHive.CurrentUser, sComp, _
          RegistryView.Default).OpenSubKey("Software\Microsoft\Windows" & _
          "NT\CurrentVersion\Windows\", False, _
          Security.AccessControl.RegistryRights.ReadKey).GetValue("Device")
 
        erg_drucker.Text = Werte