一个页面，有个按钮，点击后可以查找 访问者的机器里 是否 安装了某个程序！也就是有没有XXX.exe文件？

Question

<script language="VBScript">
strComputer = "."
intcount = 0 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product where name='Vbsedit' ")
For Each objSoftware In colSoftware
document.write ( "Name: " )
document.write ( objSoftware.name )
document.write ( "      " )
document.write ( "Description: " )
document.write ( objSoftware.Description )
document.write ( "<br>" )
intcount = intcount + 1
Next
document.write ( intcount )
</script>查找 安装了的程序。

Answer 1

好高深啊 ！ 没看太懂  这样吧   比如找  D:\web\qq.exe  怎么写？

Answer 2

这个只能查找安装程序里面看得到的已安装程序。如果它没有安装，只是放在那里，如果知道了路径，还行，直接用fso来。不知道路径，那么你只能用fso去一个一个的查找了。不过那个速度来执行，还是放弃比较好。