复制代码 代码如下:
RegValue = CreateObject("Wscript.Shell").RegRead("XXXX_XXXXXXXX_XXXXXXXXXX")
Msgbox(RegValue)
更多的操作可以参考这篇文章 http://www.jb51.net/article/18125.htm
第二种方法： 通过wmi
复制代码 代码如下:
Const HKLM = &H80000002
strPath = "SOFTWAREMicrosoftWindowsCurrentVersionExplorerDesktopNameSpace"
Set oReg = GetObject("Winmgmts:rootdefault:StdRegProv")
oReg.EnumKey HKLM,strPath,arr
For Each x In arr
WScript.Echo x
Next
更多的使用方法可以参考这篇文章 http://www.jb51.net/article/14930.htm
