Следующий простой скрипт перечисляет подключи данного раздела реестра:
Option Explicit On Error Goto 0 Dim strLog, strComputer, objRegistry, strKeyPath, key, arrsubKeys strLog = "" strComputer = "." Set objRegistry = GetObject("winmgmts:!\\" _ & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Wow6432Node\Microsoft\Office\14.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