如何用VBS查找注册表中的项?
如:我要查找注册表中HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall里的所有项,并显示出它们的名字
请各位高手帮忙,并给出代码的详细解说!谢谢!先挂20分,如有详细解说,并能用,再加20!
如何用VBS查找注册表中的项?
答案:1 悬赏:20 手机版
解决时间 2021-03-04 06:39
- 提问者网友:浮克旳回音
- 2021-03-03 06:18
最佳答案
- 五星知识达人网友:杯酒困英雄
- 2021-03-03 06:37
'''-----------------配置环境(路径)----------------------------------------00
strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyRoot = &H80000002
Regpath = "HKEY_LOCAL_MACHINE"
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
'''----------------- 枚举主键"SUB_KEY"--------------------------------------
oReg.EnumKey strKeyRoot, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
ArrSubKeyStr=ArrSubKeyStr & vbcrlf & subkey
Next
WshSHell.popup "枚举主键:" & ArrSubKeyStr & "5 秒钟后本窗口将自动关闭!", 5, "ljl88900", 0 + 64
strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyRoot = &H80000002
Regpath = "HKEY_LOCAL_MACHINE"
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
'''----------------- 枚举主键"SUB_KEY"--------------------------------------
oReg.EnumKey strKeyRoot, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
ArrSubKeyStr=ArrSubKeyStr & vbcrlf & subkey
Next
WshSHell.popup "枚举主键:" & ArrSubKeyStr & "5 秒钟后本窗口将自动关闭!", 5, "ljl88900", 0 + 64
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯