教程吧

复制代码 代码如下:
RegValue = CreateObject("Wscript.Shell").RegRead("\XXXX_XXXXXXXX_XXX\XXX\XXXX")
Msgbox(RegValue)

第二种方法： 通过wmi

复制代码 代码如下:
Const HKLM = &H80000002
strPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace"
Set oReg = GetObject("Winmgmts: oot\default:StdRegProv")
    oReg.EnumKey HKLM,strPath,arr
    For Each x In arr
        WScript.Echo x
    Next