Hallo,
ich hab ein kleines Problem auf die Regestry von einen Remoteclient zu kommen.
Leider finde ich im Internet nich wirklich was, Google ist mir eben nicht mehr so Freundlich gesonnen.
Hier mal mein Ansatz:
ich hab ein kleines Problem auf die Regestry von einen Remoteclient zu kommen.
Leider finde ich im Internet nich wirklich was, Google ist mir eben nicht mehr so Freundlich gesonnen.
Hier mal mein Ansatz:
Code:
Dim RegKey As Microsoft.Win32.RegistryKey Dim SubRegKeyName As String Dim subkeys() As String Dim software As String Try 'Registry RegKey = Microsoft.Win32.RegistryKey.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.LocalMachine, "RECHNERNAME") RegKey = RegKey.OpenSubKey("HKEY_LOCAL_MACHINE/System/CurrentControlSet/Control/Session Manager/") subkeys = RegKey.GetSubKeyNames ' Key auslesen For i1 As Integer = 0 To RegKey.SubKeyCount - 1 SubRegKeyName = subkeys(i1).ToString software = "" Try software = RegKey.OpenSubKey(SubRegKeyName).GetValue( _ "DisplayName").ToString Catch ex As Exception End Try If software <> "" Then MsgBox(software) End If Next Catch ex As Exception MsgBox(ex.Message) End Try
Comment