Vista - VBScript to traverse all Registry keys

Hi All,

After trying a lot. I came here. I need to Traverse all (ALL) windows
registry key i need to get the registry key value that user needs.

By my exploration I found by using

strKeyPath = "SYSTEM\CurrentControlSet\Services"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

we can get the subkeys. but here I need to pass the path(strKeyPath).
whatever function to be used its working with a specific path.

I need to traverse all(HKEY_CLASSES_ROOT, HKEY_CURRENT_USER,
HKEY_LOCAL_MACHINE, HKEY_USERS, HKEY_CURRENT_CONFIG).

And one more thing is it possible?. If yes kindly help me...

Thanks,
Jam