Scanning Registry

I am trying to use this snip of code I found here on the forums. But I think I am missing some of the code. I keep getting unable to open key.


Dim ReadRegistry As String
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
ReadRegistry = WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\")

msgbox ReadRegistry


What I am trying to do is scan the Registry for different values. Any help would be great. (I have been searching these forums for Registry, but not Finding what I need)

I am trying to use this snip of code I found here on the forums. But I think I am missing some of the code. I keep getting unable to open key.


Dim ReadRegistry As String
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
ReadRegistry = WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Class\")

msgbox ReadRegistry


What I am trying to do is scan the Registry for different values. Any help would be great. (I have been searching these forums for Registry, but not Finding what I need)
You have to give a spicific key name
if there is more then one key in that location.

also, what happen if your trying to write and
then read from the same location ?