Récupération du nom de la sous-clé via les données d'une valeur

Version imprimable

05/06/2012, 10h37
Mammy Potter

Récupération du nom de la sous-clé via les données d'une valeur

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
07/06/2012, 13h59
Mammy Potter

Personne aurait même une petite idée? :/
07/06/2012, 14h08
hackoofr

Citation:

Envoyé par Mammy Potter

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

:salut:
Avez-vous fait un petit script ; si oui alors postez-le pour voir plus clair les choses.
:merci:
07/06/2012, 16h15
Mammy Potter

Un petit script oui un grand même :D

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

Salut

Citation:

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:

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 ;)