O próximo script simples enumera as subchaves de uma determinada chave de registro:
Option Explicit
On Error Goto 0
Dim strLog, strComputer, objRegistry, strKeyPath, key, arrsubKeys
strLog = ""
strComputer = "."
Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\" _
& strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Wow6432Node\Microsoft\Office.0\Registration\"
strKeyPath = "SOFTWARE\Wow6432Node\Adobe\" '''' key path for demonstration
strLog = strLog & vbNewLine & "subkeys of HKLM\" & strKeyPath
objRegistry.EnumKey HKLM, strKeyPath, arrsubKeys
If VarType( arrsubKeys) = 8204 Then
For Each key In arrsubKeys
strLog = strLog & vbNewLine & key
Next
End If
Wscript.Echo strLog
Wscript.Quit
' useful constants '
' Registry: Braches and Corresponding Hexadecimal Values '
Const HKCR = &H80000000 'HKEY_CLASSES_ROOT
Const HKCU = &H80000001 'HKEY_CURRENT_USER
Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Const HKU = &H80000003 'HKEY_USERS
Const HKCC = &H80000005 'HKEY_CURRENT_CONFIG
Const HKDD = &H80000006 'HKEY_DYN_DATA