白云岛资源网 Design By www.pvray.com
第一种 通过wshshell对象的regread

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

更多的操作可以参考这篇文章 https://www.jb51.net/article/18125.htm

第二种方法: 通过wmi

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

更多的使用方法可以参考这篇文章 https://www.jb51.net/article/14930.htm

白云岛资源网 Design By www.pvray.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
白云岛资源网 Design By www.pvray.com