RegEnumKey Issue

[StungStang]

Hi to all, i want to Enumerate all the key of two certain registry key, the number of keys is almost equal, but the scan times are very different, this is an example script with it's result:

Global $count
$int = TimerInit()
_Reg_Enum("HKCR\CLSID")
$end = TimerDiff($int)
ConsoleWrite ("Time for scan " & $count &" keys in HKCR\CLSID ===>: " & $end & " ms." & @CRLF)
$int = TimerInit()
_Reg_Enum("HKLM\Software\Classes\CLSID")
$end = TimerDiff($int)
ConsoleWrite ("Time for scan " & $count &" keys in HKLM\Software\Classes\CLSID ===>: " & $end & " ms." & @CRLF)
MsgBox(0, "", "Done!")

Func _Reg_Enum($r_key)
$count = 0
$Ch1 = ""
While 1
  $Ch1 += 1
  $readR1 = RegEnumKey($r_key, $Ch1)
  If @error <> 0 Then ExitLoop
  $count += 1
WEnd
EndFunc

This is the result :

Time for scan 3776 keys in HKCR\CLSID ===>: 77513.6734796813 ms.
Time for scan 3762 keys in HKLM\Software\Classes\CLSID ===>: 157.024587458746 ms.

As you can see scanning the "HKCR\CLSID" that have only 14 more key than "HKLM\Software\Classes\CLSID" require ~ 1,30 minutes when the "HKLM\Software\Classes\CLSID" require only 157 ms. How is possible? There is a way to speed up that? :/

Hi!

[GEOSoft]

Thats because of the way Windows handles those hives. For HKCR it is more stringent about checking security credentials for the logged in user.

For more information on the Windows Registry go to the foillowing page.

http://en.wikipedia.org/wiki/Windows_Registry

[StungStang]

There is a way to speed up that?

I just saw a software that scan HKCR in abount 5/6 seconds!

Thanks for the help anyway