批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS如何获取注册表值，并赋值变量。 [打印本页]

作者: q121212 时间: 2015-4-21 21:20 标题: VBS如何获取注册表值，并赋值变量。

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

作者: apang 时间: 2015-4-21 22:55

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 时间: 2015-4-22 21:45

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

作者: apang 时间: 2015-4-23 19:23

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

作者: q121212 时间: 2015-4-27 11:04

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

作者: q121212 时间: 2015-4-27 11:06

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

作者: ygqiang 时间: 2015-5-15 23:36

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

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

欢迎光临批处理之家 (http://www.bathome.net/)