Recherche base de registre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Recherche base de registre

mateoguitare

Opus Akoben

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

Publicité

The Psychowizard

Nemo me impune lacessit

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

mateoguitare

Opus Akoben

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

mateoguitare

Opus Akoben

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

FORUM HardWare.fr

Windows & Software

Recherche base de registre

Sujets relatifs
Pb clé de registre	Ouvrir le registre utilisateur avec les droits d'admin ...
droit d'ecriture pour clé registre	recherche de logiciel de simulation WAN
recherche logiciel	Je recherche un logiciel ...
recherche logiciel "finder"	Soft de base de registre qui fait une recherche ...
Recherche urgent logiciel pour ma base de registre	recherche sur la base de registre
Plus de sujets relatifs à : Recherche base de registre

Page générée en 0.045 secondes