用于读取注册表项及其子项的vbscript

我想更改注册表路径中的源文件服务器路径位置 每个客户端计算机的HKEY\U CLASSES\U ROOT\Installer\Products\Product GUID\SourceList\Net\1

由于我们已经用新的应用程序服务器删除了现有的应用程序服务器…我们能够使用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

但我们被困在读取注册表值。。。。 产品GUID是一个变量。首先我们必须读取该路径，然后在读取一个GUID后，我们必须再次读取完整路径 HKEY\U CLASSES\U ROOT\Installer\Products\Product GUID\SourceList\Net\1，然后更改服务器名称

---

请让我知道任何人遇到过类似的情况。

假设我没有弄错，并且您想枚举某个键中的所有子键，这从另一个问题中可以看出执行此操作的代码