Discussion :

[Mammy Potter]

Bonjour,

Dans le but de personnalisé un fichier de config pour un soft, j'ai besoin de récupérer le nom de la sous-clé dans la base de registre où se trouve la valeur que je cherche.

Les données de la valeur sont constant mais par contre le nom de la sous-clé, elle, est différente d'un PC sur l'autre (j'en ai 400)

J'arrive à récupérer la valeur d'une clé mais là je suis complètement bloqué :/

Merci d'avance

[Mammy Potter]

Personne aurait même une petite idée? :/

[hackoofr]

Personne aurait même une petite idée? :/

Avez-vous fait un petit script ; si oui alors postez-le pour voir plus clair les choses.

[Mammy Potter]

Un petit script oui un grand même

mais ayant rien sur cette partie car impossible de trouver la fonction que je cherche, je ne sais pas trop quoi mettre :/

[ProgElecT]

Salut

Les données de la valeur sont constant mais par contre le nom de la sous-clé, elle, est différente d'un PC sur l'autre

Donc il faut énumérer toutes les sous clefs et lire la valeur de chacune, si la valeur de la sous clef égal la valeur constante, tu as gagné.
Exemple de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
ption Explicit
Dim oReg, ClefPrimaire
Dim NameClef
Dim NameSousClef
Dim ValeurSousClef
Const HKEY_LOCAL_MACHINE = &H80000002
 
'--------------------------------------------------------------------------------------------
Sub RecupNameClef()
        Dim TblClef, MsG, T, MsgRecup
        'Recuperation des sous clefs
        ClefPrimaire = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\Romance Standard Time" '< Ta clef connue contenant les sous clefs inconnues
        oReg.EnumValues HKEY_LOCAL_MACHINE, ClefPrimaire, TblClef, MsG
        For T = LBound(TblClef) To UBound(TblClef)
            oReg.GetStringValue HKEY_LOCAL_MACHINE, ClefPrimaire, TblClef(T), MsgRecup
            If MsgRecup = ValeurSousClef Then
                NameSousClef = TblClef(T)
                NameClef = ClefPrimaire & "\" & NameSousClef: Exit For
            End If
        Next
Set oReg = Nothing
End Sub
'--------------------------------------------------------------------------------------------
Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
ValeurSousClef = "Paris, Madrid" 'valeur de la sous clef connue
RecupNameClef
MsgBox "Clef recherchée:  " & NameSousClef & vbNewLine & "Clef complete:  " & NameClef

En espérant avoir réussi à me faire comprendre