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.
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
Quelqu'un aurait il une fonction ou un bloc de code qui fait ceci?
Merci de votre aide
Meilleurs voeux 2014
Orwell
Orwell
