VBScript: каталоги и ключи реестра листинг

Question

Если у меня есть Pathing Реестра:

HKEY_LOCAL_MACHINE\SOFTWARE\INTERSTAR\XFILES\CONFIG MANAGER\SYSTEM\COMPANIES 

Как бы я идти о перечислять все записи в этом пути/и получить доступ к DWORDs, REG_SZs и данные?

заранее спасибо

Answer 1

Одним из вариантов было бы использовать WMI:

Const HKEY_LOCAL_MACHINE = &H80000002 

strComputer = "." 

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

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

For Each subkey In arrSubKeys 
    Wscript.Echo subkey 
Next 

Вы найдете более полезные сценарии реестра здесь: http://www.activexperts.com/activmonitor/windowsmanagement/scripts/operatingsystem/registry/