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.

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
Quelqu'un aurait il une fonction ou un bloc de code qui fait ceci?

Merci de votre aide

Orwell