"Looping"

[MAC2979]

I have to write a script that will append a value into the registery for each entry under a set key. The number of entires can vary from system to system it can be as little as 2 or as many as 50.

Is there some way to loop through a key like this?

Example:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}

\0000\Speed

\0001\Speed

\0002\Speed

....

\00??\Speed

[BrewManNH]

Look at RegEnumKey and RegEnumVal, either or both should do what you're looking to do.

[MAC2979]

BrewManNH, the problem I see with this (steming from looking at the examples mostly) is the FOR loop has a set end, I can't use something like

For $I = 1 to 10

I don't know what the vaule of "10" will be for every machine, all I know is that each system will have at least 1 entry but so far I've seen as many as 25 (but I've only checked a few systems and I have over 14,000).

I'm wondering if I can use Autoit to do something like..

While not end of "KeyName" Do

Write something to ever Key under

End While

[LurchMan]

Just use something like this...its not perfect but it works.

For $i = 1 to 100

$rtn = RegEnumKey ("keyname", $i)

If @error = -1 Then ExitLoop

;Do what you want to do with it.

Next

Edited December 20, 2012 by LurchMan

[jdelaney]

how about:

$iCounter = 1
While True
   RegEnumKey ("test",$iCounter)
   If @error ExitLoop
   $iCounter+=1
WEnd

Edited December 20, 2012 by jdelaney

[EndFunc]

I have to write a script that will append a value into the registery for each entry under a set key. The number of entires can vary from system to system it can be as little as 2 or as many as 50.

Is there some way to loop through a key like this?

Example:

HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlClass{4D36E972-E325-11CE-BFC1-08002bE10318}

0000Speed

0001Speed

0002Speed

....

00??Speed

This should get you what you want.

$i = 1
While 1
$n = $i - 1
$aKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}"
$var = RegEnumKey($aKey, $i)
If @error <> 0 then ExitLoop
If Not StringInStr($var, $n) then ContinueLoop ;Only process keys that have numbers in them e.g. 0000, 0001 etc
MsgBox(4096, "SubKey #" & $i & " under HKLM\Software: ", $aKey & "\" & $var & "\Speed") ; Do something here.. e.g. RegWrite a value
$i = $i + 1
WEnd

Edited December 22, 2012 by EndFunc