vbscript для чтения ключей реестра и его подразделов

Question

Я хочу изменить путь к файлу сервера исходного файла в пути reg HKEY_CLASSES_ROOT\Installer\Products\Product GUID\SourceList\Net\1 каждой клиентской машины,

так как мы удалили существующий сервер приложений с новым ... Мы смогли изменить путь к старому серверу на путь к новому серверу, используя функцию "replace" в vbscript.

Set objWS = CreateObject("WScript.Shell") 

strKeyValue = objWS.RegRead("HKEY_CLASSES_ROOT\Installer\Products\A7C4EB2D0BDDF2A43BDD35A498E12655\SourceList\Net\1")  

newstrKeyValue = Replace(strKeyValue,"\\INADCSRV11" ,"\\INADCSRV12")

newstrKeyValue2 = Replace (newstrKeyValue ,"SMSPKGC$" ,"SMSPKGP$")


     Const HKEY_CLASSES_ROOT = &H80000000
     strComputer = "."

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

     strKeyPath = "Installer\Products\A7C4EB2D0BDDF2A43BDD35A498E12655\SourceList\Net\"
      strValueName = "1"
     strValue = newstrKeyValue2

      oReg.SetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,strValueName,strValue

но мы застряли в чтении значений reg .... Продукт GUID является переменной. Сначала мы должны прочитать до этого пути, а затем, прочитав один GUID, снова мы должны прочитать полный путь. HKEY_CLASSES_ROOT\Installer\Products\Product GUID\SourceList\Net\1 и затем измените имя сервера

Пожалуйста, дайте мне знать, что кто-нибудь сталкивался с подобной ситуацией.

Answer 1

Предполагая, что я не ошибаюсь, и вы хотите перечислить все подразделы в определенном ключе, этот этот ответ из другого вопроса показывает код, который делает это.