Remote Regestry Auslesen

[morpheus-dev]

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:

 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

[Christian Marquardt]

eben nicht mehr so Freundlich gesonnen

Oh, was hast du getan?

[morpheus-dev]

Naja Google und ich haben mal um die gleiche Frau geworben und er hat verloren. Seitdem ist die Luft raus zwischen Googel und mir.


Das Problem ist übrigends schon behoben:

Dim Ausgabe As String
        Dim key As RegistryKey = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, "RECHNERNAME")
        key = key.OpenSubKey("System\CurrentControlSet\Control\Session Manager\Environment")
        'Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("System\CurrentControlSet\Control\Session Manager\Environment")

        Ausgabe = "Name: " & key.Name & vbNewLine
        Ausgabe = Ausgabe & "Subkeys: " & key.SubKeyCount & vbNewLine & vbNewLine

        Dim sSubKeyNames() As String = key.GetSubKeyNames
        For Each sSubKeyName As String In sSubKeyNames
            Ausgabe = Ausgabe & "Sub: " & sSubKeyName & vbNewLine
        Next

        Ausgabe = Ausgabe & vbNewLine & "Werte:" & vbNewLine & vbNewLine
        Dim sValues() As String = key.GetValueNames
        For Each sValue As String In sValues
            Ausgabe = Ausgabe & sValue.PadRight(25) & key.GetValue(sValue) & vbNewLine
        Next



        key.Close()



        MsgBox(Ausgabe)