Discussion :

[jamy69]

Bonjour à tous,
Je recherche à faire un script qui me permettrait de lister le contenu d'une clé de registre, présente soit dans HKEY_LOCAL_MACHINE\SOFTWARE, soit dans HKEY_LOCAL_MACHINE\software\Wow6432Node en fonction du type d'OS.

Cette clé contient de une à plusieurs sous clés, qui contiennent elles mêmes des données avec valeurs.

Mon objectif : récupérer pour chaque sous clé, l'intitulé de cette sous-clé ainsi que des données particulières dans la sous-clé (par exemple : "Nom", "Date", ...)

Mon niveau de scripting étant limité, j'aurai besoin de votre aide.

Merci à vous par avance, je pense que ce n'est pas hyper compliqué.

Bonne journée !

[jamy69]

Bonjour,
Après quelques recherches et essais,
Voici le script qui fonctionne chez moi. Il ouvre donc une clé de registre, liste toutes les sous clés, et récupère des valeurs de données spécifiées.

En espérant que cela vous aide un jour.

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
On Error Resume Next
Set Registre = GetObject("winmgmts:\\.\root\default:StdRegProv")
Set WshShell = WScript.CreateObject("WScript.Shell")
REG32 = Registre.EnumKey(&H80000002,"SOFTWARE\XXXX\Packages", SousCles)
IF REG32 = 0 Then
 
For Each Cles In SousCles
XXXXCODE = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\XXXX\Packages\" & Cles & "\Code application")
XXXXNOM = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\XXXX\Packages\" & Cles & "\Nom")
XXXXDATE = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\XXXX\Packages\" & Cles & "\Date install")
XXXXOBSO = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\XXXX\Packages\" & Cles & "\Obsolète")
XXXXDESC = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\XXXX\Packages\" & Cles & "\Description")
XXXXNORD = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\XXXX\Packages\" & Cles & "\N° d'ordre")
Next
 
ELSE
Registre.EnumKey &H80000002,"SOFTWARE\Wow6432Node\XXXX\Packages", SousCles
For Each Cles In SousCles
XXXXCODE = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\XXXX\Packages\" & Cles & "\Code application")
XXXXNOM = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\XXXX\Packages\" & Cles & "\Nom")
XXXXDATE = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\XXXX\Packages\" & Cles & "\Date install")
XXXXOBSO = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\XXXX\Packages\" & Cles & "\Obsolète")
XXXXDESC = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\XXXX\Packages\" & Cles & "\Description")
XXXXNORD = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\XXXX\Packages\" & Cles & "\N° d'ordre")
Next
 
End IF

Dans mon cas, je récupère toutes ces valeurs que j'injecte dans un logiciel d'inventaire.

Bon courage à tous.