如何用VBScript遍历注册表某个键下面的所有子键？

来源：百度知道 编辑：UC知道 时间：2024/06/01 19:33:53
因为这些字键可能不同，所以不知道具体名字，但我想知道是否有键存在，并且这个键里面有键值。
请尽量不要使用自己编COM组建的方法。

一个例子，请参考。
把下面代码保存为vbs文件，运行即可。

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
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
msgbox subkey
Next