Question

如何写一个批处理文件实现这样的功能：运行后检查系统是否安装了某个软件，最后做个统计

例如：我要检查系统是否安装了搜狗拼音输入法、QQ、360杀毒 这三个，
写个批处理，自动检测是否安装了这些软件，然后统计出来 统计结果：
搜狗拼音输入法：是
QQ：是
360杀毒：是
先谢谢啦，可以的话再加分！
如果没有安装要提示：
搜狗拼音输入法：否
QQ； 否
360杀毒：否

Answer 1

@echo off
reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i "sogou input">nul 2>nul
if %errorlevel%==0 (echo 搜狗拼音输入法：是) else echo 搜狗拼音输入法：否
echo.
reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i "{052CFB79-9D62-42E3-8A15-DE66C2C97C3E}">nul 2>nul
if %errorlevel%==0 (echo QQ：是) else echo QQ：否
echo.
reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i "360sd">nul 2>nul
if %errorlevel%==0 (echo 360杀毒：是) else echo 360杀毒：否
echo.
pause
exit
----------------------------------------------------------------------------------------------------------------------
要记得加分喔，呵呵~~

追问

您实在是太神了！帮人帮到底吧，我看你是通过判断注册表写的，你是如何在注册表中判断哪个键值对应的那个软件的？？
例如，我怎么知道哪个注册表对应着office2003、金山词霸？？
谢谢啦

追答

程序的安装列表信息储存在
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\
的目录下。
据说这是windows ”添加或删除程序”读取的地方..........
至于哪个对应哪个有些是可以直接看出来，如（搜狗输入法等。）有些是不能看出来的（如QQ等），但可以看它的键值信息.....
以office 2003为例：
（如图）我从第一个项一直点下去，知道点到如图表示的地方，在右边就能看出它是代表office的了
当然，这个不一定是所有的程序的安装信息，至今我还找不到google浏览器的位置

Answer 2

dim wh
set wh=createobject("wscript.shell")
for i=1 to 5 ‘这位刷新次数
wh.sendkeys "{F5}"
wscript.sleep 3000 ’3000为延迟，单位是毫秒
next

存为文本，然后另存为1.vbs就可以了。双击1.vbs就能刷新屏幕了

Answer 3

可以