vbs как читать путь к реестру

Question

Я хочу видеть с vbs, путь к реестру. У меня есть решение для чтения ключа.

Set wshShell = CreateObject("WScript.Shell") 
    WScript.Echo "ID = " _ 
      & wshShell.RegRead("HKEY_USERS\key") 

Выход - это строка ключа реестра.

Мне нужен сценарий, который должен показывать все пути в HKEY_USERS.

Например дерево:

HKEY_USERS \ 
S-1-5-20_Classes 
S-1-5-20 
S-1-5-21 
S-1-5-21-15325-362362362 (I want to output only this path) 

Answer 1

Вы можете использовать методы WMI StdRegProv.EnumKey перечислить все подразделы под конкретным ключом реестра. Например:

Const HKEY_USERS = &H80000003 
strComputer = "." 

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ 
    & strComputer & "\root\default:StdRegProv") 

strKeyPath = "" 
objReg.EnumKey HKEY_USERS, strKeyPath, arrSubKeys 

For Each subkey In arrSubKeys 
    WScript.Echo subkey 
Next