reg auslesen

hallo, kann mir jemand sagen ob und wie man nen kompletten schlüssel auslesen kann.
möchte also das mir alles was in runMRU steht auslesen. hab mal mein script gepostet das leider nur einen eintrag auslesen kann.


Set objshell = CreateObject(WScript.Shell)
schluessel = HKCU\software\microsoft\windows\currentVersion\explorer\runMRU
eintrag = c
key = schluessel & \ & eintrag
WScript.Echo objshell.RegRead(key)

Hallo,

probier's damit:

Dim fso
Dim WSHShell, oAppShell
Public key
Public WinVer
dim blnGefunden

Set WSHShell = CreateObject(WScript.Shell)
Set fso = CreateObject(Scripting.FileSystemObject)
Set c = WSHShell.Environment(PROCESS)
WinVer = c(OS)
TempPath = fso.getspecialfolder(2) & \
InputFile = TempPath & temp.reg

key = HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU
cmd = regedit.exe /e & Chr(34) & InputFile & Chr(34) & & Chr(34) & key & Chr(34)
WSHShell.Run cmd, 2, True
n=1
Set file = fso.Getfile(InputFile)
InputFileShort = file.ShortPath
If WinVer = Then
Set ts = fspenTextFile(InputFileShort, 1, False)
Else
Set ts = fspenTextFile(InputFileShort, 1, False,-1)
End If
blnGefunden = false
on error resume next
Do While ts.AtEndOfStream <> True
if instr(s,key)<> 0 then blnGefunden = true
s = ts.ReadLine
if blnGefunden = true then
s=replace(s,\\,\)
s=replace(s,Chr(34),)
Position = Instr(1,s,=)
Name = left(s,Position-1)
Wert = mid(s,Position+1)
If Position <>0 then
If instr(1,Lcase(s),mrulist)=0 then
liste = liste & & Name & & Wert & vbcr
n = n+1
end if
end if
end if
Loop
ts.Close
fso.deletefile(InputFile)
msgbox liste


MfG Anton

sign schrieb:

hallo, kann mir jemand sagen ob und wie man nen kompletten schlüssel auslesen kann.

Zum Vergrößern anklicken....

ja mit wmi. Hier gab es mal jede Menge Beispielskripte dazu, auch mindestens eines zum Listing von Registryschlüsseln.http://msdn.microsoft.com/library/en-us/dnanchor/html/anch_wmi.asp?frame=true Die Seite scheint (momentan) defekt zu sein.

puh, @ anton. danke auch hier für deine antwort. werd etwas brauchen um den code zu verstehen. 

hab nochmal nach beispielen gegoogelt:
http://www.activexperts.com/activmonitor/windowsmanagement/adminscripts/registry/
unter Enumerating Subkeys steht wie man mit vbs und wmi unterschlüssel listen kann.