[问题求助] VBS如何获取注册表值，并赋值变量。

q121212

如上图，路径为：
HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\MuiCache
现在知道数值数据：“飞鸽传书”
怎么才能把此程序的绝对路径（D:\Program Files (x86)\APP\IPMSG.exe）提取出来， 并赋值给一个变量方便之后操作？
求解

apang

const HKCU = &h80000001
const REG_SZ = 1
strPath = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\MuiCache"
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\Default:StdRegProv")
WMI.EnumValues HKCU, strPath, arrName, arrType
For i = 0 to UBound(arrType)
        If arrType(i) = REG_SZ Then
                WMI.GetStringValue HKCU, strPath, arrName(i), strValue
                If strValue = "飞鸽传书" Then strName = arrName(i) : Exit For
        End If
Next
复制代码

q121212

看不懂啊  能注释一下不
还有点这个运行之后好像没有反应

apang

您想要实现什么样的反应啊？化学反应？物理反应？
我会告诉您vbs实现不了化学反应的么？

q121212

多谢 ~已经用上了   
VBS刚起步 求带飞哈

q121212

后来又用regread实现了判断WIN7还是XP
现在已经实现：通过程序描述来启动程序
规避了不同电脑XX程序安装路径不同导致无法启动的问题
大爱脚本 真心解放双手

ygqiang

后来又用regread实现了判断WIN7还是XP
现在已经实现：通过程序描述来启动程序
规避了不同电脑XX程序安装路 ...
q121212 发表于 2015-4-27 11:06

能否    给出你的具体代码？谢谢了。。