第一种 通过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
您可能感兴趣的文章:- vbs 多线程下载实现代码
- VB实现的倒计时类代码详解
- VB调用Word拼写检查功能实例
- VB6中的LSet语句和RSet语句详解
- VB实现的16位和32位md5加密代码分享
- 通过VB6将ASP编译封装成DLL组件最简教程 附全部工程源文件
- VB6反编译软件VB RezQV2.4a 正式版注册码
- VB读取线程、句柄及写入内存的API代码实例
