list all keys, subkeys and values in registry hive

[westconn1]

here is a recursive scripting method to get all keys and subkeys in a hive starting from root or any level
takes a while, probably should have a doevents somewhere, to prevent computer lockup while running

Sub getsubkeys(hkey As Long, strpath As String, sk As Variant)
Dim strkeypath As String, subkey As Variant, arrsubkeys As Variant
strkeypath = strpath
If Not Len(sk) = 0 And Not Len(strpath) = 0 Then strkeypath = strpath & "\"
strkeypath = strkeypath & sk
oreg.EnumKey hkey, strkeypath, arrsubkeys
If Not IsNull(arrsubkeys) Then
For Each subkey In arrsubkeys
    Debug.Print strkeypath & "\" & subkey     ' or print to form or whatever
      ' for speed considerations should be stored to memory (variable) and written to whatever in sections, trying to read the entire registry into memory may or may not be possible, depending on machine configuration
    getsubkeys hkey, strkeypath, subkey
Next
End If
End Sub
 
' call like
Sub yy()
Const HKEY_CURRENT_USER As Long = &H80000001
strComputer = "."
Set oreg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
getsubkeys HKEY_CURRENT_USER, "", ""   ' get from root level
'or
getsubkeys HKEY_CURRENT_USER, "software\adobe", ""   ' starting at adobe 
Set oreg =  Nothing
End Sub

declare oreg as object in the general section