LIRE UNE BASE DE REGISTRE DISTANTE

Commentaire de laurent207 le 04/02/2004 17:58:02

ravis d'avoir pu t'aider

Commentaire de laurent207 le 04/02/2004 19:59:38

c avec l'api RegEnumValue ou RegEnumValueEx

si t'y arrive pas g 1 example

Commentaire de laurent207 le 05/02/2004 19:03:31

pardon j'avais pas vu vos msg, j'ai été très oqp mais je vous mettrai en example en commantaire demain, seulement pour les valeurs ça marche quelque soit le type mais pour récupérer les données de chaque valeur ça ne marche que si c une chaine, pas avec une valeur dword (héxa) et pour le multi_sz, g pas testé

Commentaire de laurent207 le 07/02/2004 00:45:48

il n'y a rien a installer et ce n'est pas des contrôle active X, ce sont juste des appel à des api qui s'appient sur des dll de windows (9x ou à partir de NT 3.51, donc pour toutes les version)

Private Sub ListePortsLocal()
    Dim NomPort As String
    Dim NomFichier As String
    'lister les valeurs d'une sous-clé
    NomFichier = UCase(txtNomPoste.Text) & "PortLocal.txt"
    lstPorts.Clear
    
    Cnt = 0
    'Open a registry key
    If RegOpenKey(RemoteMachine, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ports", hKey) = 0 Then
        If (Dir$(CheminTXT & NomFichier) <> vbNullString) Then
            Kill (CheminTXT & NomFichier)
        End If
        'initialize
        sName = Space(BUFFER_SIZE)
        sData = Space(BUFFER_SIZE)
        Ret = BUFFER_SIZE
        RetData = BUFFER_SIZE
        'enumerate the values
        While RegEnumValue(hKey, Cnt, sName, Ret, 0, ByVal 0&, ByVal sData, RetData) <> ERROR_NO_MORE_ITEMS
            'show data
            If RetData > 0 Then
                'sauvegarde de la clé dans un fichier
                NomPort = Left$(sName, Ret)
                If (NomPort <> "") Then
                    If ((NomPort <> "FILE") And (Mid(NomPort, 1, 2) <> "Ne")) Then
                        If (Mid(NomPort, Len(NomPort), 1) = "=") Then
                            NomPort = Left(NomPort, Len(NomPort) - 1)
                        End If
                        If (Mid(NomPort, Len(NomPort), 1) = ":") Then
                            NomPort = Left(NomPort, Len(NomPort) - 1)
                        End If
                        
                        Open CheminTXT & NomFichier For Append As #1
                            Print #1, NomPort
                        Close #1
                        lstPorts.AddItem (NomPort)
                    End If
                End If
                'prepare for next value
                Cnt = Cnt + 1
                sName = Space(BUFFER_SIZE)
                sData = Space(BUFFER_SIZE)
                Ret = BUFFER_SIZE
                RetData = BUFFER_SIZE
            End If
        Wend
        'Close the registry key
        RegCloseKey hKey
    End If
End Sub

bon voilà
c un petit truc qui m'a permisde récupéré les ports locaux d'un pc distant
après dans la boucle, je "nettoie" la chaine des caractères indésirable
et je sauvegarde la liste des ports dans un fichier texte

bonne prog !

Commentaire de laurent207 le 25/04/2005 18:55:45

vérifie que le service windows d'acces distant à la base de registre soit activé.

Commentaire de laurent207 le 30/04/2005 11:01:42

tu as tout ce qu'il te faut pour ennmérer le sous-clés d'une ruche (regarde dans le source), tu n'a quà changer le nom de la ruche et de la clé à énumérer. Pour lire les valeur regarde le poste juste au dessus, lol. Et pour écrire des valeurs je n'ai plus le nom exacte des api en tête (c un truc du RegSetValue) regarde sur le site http://www.mentalis.org/apilist/RegSetValueEx.shtml)

Bonne prog !