Bonjour,
Je souhaite scruter chacune des sous clés se trouvant directement sous la clé suivante
"HKLM\Microsoft\Windows\CurrentVersion\Group Policy\State\Machine\GPOList".
Le nombre de sous clés est fonction du nombre de GPO appliquées sur le poste.
Ces sous clés sont nommées par un numéro qui se présente comme suit.
-> GPOList
| --> 0
| --> 1
| --> 2
| --> n
Sous chacune des ces clés il y a une valeur REG_SZ nommée DisplayName dont je voudrais récupérer le contenu.
J'ai essayé plein de morceaux de code du genre de celui ci mais aucun n'a fonctionné dans mon cas.
Quelqu'un aurait il une fonction ou un bloc de code qui fait ceci?
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 Sub SearchAndPrintKey(root, key, value) Dim strValue oReg.EnumValues HKLM, key, names, types If Not IsNull(names) Then For Each name In names If name = value Then reg.GetStringValue HKLM, key, name, regdata End If Next End If 'value not found in current key => continue search in subkeys oReg.EnumKey root, key, subkeys If Not IsNull(subkeys) Then For Each sk In subkeys strValue = oReg.GetStringValue (root, sk, value) SearchAndPrintKey root, key & "\" & sk, value Next End If End Sub
Merci de votre aide
Orwell
Partager