第一种 通过wshshell对象的regread

复制代码 代码如下:

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