Recherche base de registre

Marsh Posté le 04-05-2006 à 15:20:24

Bonjour a tous

Voils mon petit probleme :

Je recherche une valeur bien precise dans la base de registre.j aimerai savoir si il est possible de lancer une recherche dans une cle AINSI que les subkeys d une portion de la base de registre.

Exemple :

HKCU\TEST
HKCU\TEST\SUBKEY1
valuename type value
Exemple1 DWORD forum
HKCU\TEST\SUBKEY2
valuename type value
"Cequejerecherche" DWORD hardaware
HKCU\TEST\SUBKEY3
valuename type value
"Cequejerecherche" DWORD unbonforum

Bien entendu les valeurs Subkeys1 et 2 ne sont ni connues ni identiques d un pc a un autre !

Si vous avez une idee,J ai bien cherche en VBscript et regquery et je nai pas trouve de soft ou source me permettant de rechercher une valeur dans toute une partie de la base de registre .

D'avance un grand merci,
mateo

Reply

Marsh Posté le 04-05-2006 à 15:20:24

Reply

Marsh Posté le 04-05-2006 à 16:22:14

ben, normalement tu cliques sur le "poste de travail" dans regedit, puis control+F, et il cherche partout !!

Reply

Marsh Posté le 04-05-2006 à 16:28:14

lol.
Evidemment j aurais du precise que je dois faire ca sur quelques 2 ou 3000 comptes utilisateurs !

Reply

Marsh Posté le 05-05-2006 à 09:10:14

Bon j ai trouve pour finir.

EN Vb script la solution ressemble a ca :

On Recherche ici la cle 001e6700 qui se trouve dans l'arborrescence de : HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\

Citation :

Set WshShell = CreateObject("WScript.Shell" )

Set WshFSO = CreateObject("Scripting.FileSystemObject" )

Set oReg = GetObject("winmgmts:\\.\root\default:StdRegProv" )

on error resume next

strKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"

strKeyPath = strKeyPath & WshShell.RegRead("HKCU\" & strKeyPath & "DefaultProfile" )

rem msgbox strkeypath

oReg.EnumKey &H80000001, strKeyPath, aryKeys

If not Err Then

For each Key in aryKeys

aryBytes = WshShell.RegRead("HKCU\" & strKeyPath & "\" & Key & "\001e6700" )

If Err = 0 Then

rem msgbox arybytes

ReDim Preserve aryBackup(Rows)

arybackup(rows)=arybytes

Rows = Rows + 1

rem msgbox strpath

End If

Err.Clear

Next

End If

for i = 0 to rows

msgbox arybackup(i)

next

Voilou si ca peut aider
Tchusss

Reply

Recherche base de registre

Sujets relatifs:

Leave a Replay