ganzen reg ordner auslesen

Dr.Galvany

hi leute, gibt es die möglichkeit einen ganzen regbaum auszulesen?

mit:

Code

RegRead

kann ich ja immer nur einen wert ermitteln.

ich will aber einen ganzen regordner auslesen.

bs:

Code

$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
MsgBox(4096, "Program files are in:", $var)

hier bekomme ich ja nur den einen pfad zurück "C:\Programme"
ich will aber alles , was direkt unter "CurrentVersion" aufgeführt ist haben.
das will ich dann in einer ini bzw ein txt file speichern.
das speichern ist ja dann kein problem, aber wie komme ich an diese daten ran?

**peethebee**

Hallo!

AutoIt:
RegEnumKey, RegEnumValue (siehe HILFE)

Regedit:
man kann exportieren, evtl. einfach mit AutoIt automatiseren.

peethebee

ytwinky

Hi Dr.Galvany,
..als ersten Ansatz kannste ja dies verwenden:
Registry-KeyTypen als String anzeigen
..einfach deinen RegKey eingeben und ein wenig 'rumspielen..
Gruß
ytwinky

Dr.Galvany

Zitat

Original von peethebee
Hallo!

AutoIt:
RegEnumKey, RegEnumValue (siehe HILFE)

Regedit:
man kann exportieren, evtl. einfach mit AutoIt automatiseren.

peethebee

hm, komme einfach nicht klar damit.
natürlich, würde mir das auch reichen, wenn autoit mir die datei expotieren könnte.

aber hier müsste mir doch mal einer mehr helfen :baby:

so wie auf diesen bild zu sehen ist, möchte ich den ganzen inhalt rechts unter den einen punkt "ThreshodLUTs" haben!

[Blockierte Grafik: http://img47.imageshack.us/img47/6587/200623042016381th.th.jpg]

jonk

Hi,

ich habe mal das Beispielskript aus der Hilfe erweitert.

Code

$theKey = "HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\Autoit"
consolewrite("Windows Registry Editor Version 5.00"&@CRLF)
consoleWrite("["&$theKey&"]"&@CR)
For $i = 1 to 100
	$var = RegEnumVal($theKey, $i)
	if @error <> 0 Then ExitLoop
	$value = RegRead ( $theKey, $var )
	consolewrite(chr(34) &$var & chr(34) &"="&chr(34)&$value&chr(34)&@CR)
next

damit müßtest Du schonmal die Grundlegende Funktion haben. Beim Auslesen von RegBinary-Werten sollte Dir die Funktion von ytwinky weiterhelfen.

wolkenloser

Vielleicht hilft Dir das hier weiter :

Code

$reg_uninstall = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
$y=1
Do
		$prgkey_read = RegEnumKey($reg_uninstall, $y);Liest den Namen der installierten KB's & Q's aus der Registry aus.;	MsgBox(0,"Hotfix",$prgkey_read)
			if  $prgkey_read > "" then 
				$KB_STRING = StringInStr($prgkey_read ,"KB",1); KB gefunden
				If $KB_STRING = 1 Then 
					IniDelete($hotfix_inifile,"HOTFIX",$prgkey_read)
					IniWrite($hotfix_inifile,"In_Progress",$prgkey_read,1)
				EndIf	
				$Q_STRING = StringInStr($prgkey_read ,"Q",1) ; Q gefunden
				If $Q_STRING = 1 Then 
					IniDelete($hotfix_inifile,"HOTFIX",$prgkey_read)
					IniWrite($hotfix_inifile,"In_Progress",$prgkey_read,1)
				EndIf	



			EndIf	
		$y = $y + 1
	Until $prgkey_read= "" ;alle Keys ausgelesen

Alles anzeigen

Dr.Galvany

also leute, habe mir jetzt was erstellt.
das geht alles sehr schön und es werden auch alle direkten unterordner ausgelesen

aber wie könnte ich es machen, das alles unterordner ausgelesen werden?
also nicht nur zwei wie jetzt, sondern alle.
natürlich könnte ich den quellcode um das zich fache erweitern, aber könnte man so was nicht mit einer schleife machen?

Code

FileWrite("test.reg", "")
FileOpen("test.reg", 2)
FileWrite("test.reg", "Windows Registry Editor Version 5.00" & @CR & @CR)


For $o = 1 To 100
	$theKey = "HKEY_LOCAL_MACHINE\SOFTWARE\MINOLTA-QMS\MSR32__B"
	$van = RegEnumKey($theKey, $o)
	If @error <> 0 Then ExitLoop
	$theKey = ($theKey & "" & $van)
	If $van = "" Then
		FileWrite("test.reg", @CR & "[" & $theKey & "]" & @CR)
		test()
		FileClose("test.reg")
		Exit
	Else
		FileWrite("test.reg", @CR & "[" & $theKey & "]" & @CR)
		test()
	EndIf
Next


Func test()
	For $i = 1 To 100
		$var = RegEnumVal($theKey, $i)
		If @error <> 0 Then ExitLoop
		$value = RegRead($theKey, $var)
		FileWrite("test.reg", Chr(34) & $var & Chr(34) & "=" & Chr(34) & $value & Chr(34) & @CR)
	Next
EndFunc   ;==>test

Alles anzeigen

Dr.Galvany

so, wollte nur sagen, das ich es geschaft habe, alles egal wie viele unterordner es sind auszulesen :]

geRRus

Das ist natürlich Nice.
Aber wenn du kein Patent auf die Lösung angemeldet hast für der eine oder andere die gerne sehen (Ich gehöre dazu:) )
Könntest du evtl die Lösung posten?

Thx
cu

Dr.Galvany

jetzt warten alles auf das riesen script

aber es ist nur das und das ist auch alles was ich brauche

jaja, warum einfach, wenn es auch schwer geht!

und da ich vom silent komme, hätte ich da ja auch ehr drauf kommen können lol

Code

run('cmd /C  reg export "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon" test.reg')

geRRus

LOL
doch so einfach:)
Nice
werde ich bestimmt irgentwann mal brauchen.
thx
cu