第一種 通過(guò)wshshell對(duì)象的regread
復(fù)制代碼 代碼如下:
RegValue = CreateObject("Wscript.Shell").RegRead("\XXXX_XXXXXXXX_XXX\XXX\XXXX")
Msgbox(RegValue)
更多的操作可以參考這篇文章 https://www.jb51.net/article/18125.htm
第二種方法： 通過(guò)wmi
復(fù)制代碼 代碼如下:
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 多線程下載實(shí)現(xiàn)代碼
- VB實(shí)現(xiàn)的倒計(jì)時(shí)類(lèi)代碼詳解
- VB調(diào)用Word拼寫(xiě)檢查功能實(shí)例
- VB6中的LSet語(yǔ)句和RSet語(yǔ)句詳解
- VB實(shí)現(xiàn)的16位和32位md5加密代碼分享
- 通過(guò)VB6將ASP編譯封裝成DLL組件最簡(jiǎn)教程 附全部工程源文件
- VB6反編譯軟件VB RezQV2.4a 正式版注冊(cè)碼
- VB讀取線程、句柄及寫(xiě)入內(nèi)存的API代碼實(shí)例
