|
Sujet : Recherche base de registre |
| mateoguitare |
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 |
