如何在web客户端检测是否安装了某程序 ？

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD><BODY>
  <SCRIPT   language=JavaScript>   
  function   Run(strPath)   {   
  exe.value=strPath;   
  try   {   
  var   objShell   =   new   ActiveXObject("wscript.shell");   
  objShell.Run(strPath);   
  objShell   =   null;   
  }   
  catch   (e){alert('找不到文件"'+strPath+'"(或它的组件之一)。请确定路径和文件名是否正确，而且所需的库文件均可用。')   
    
  }   
  }   
  </SCRIPT>   
    
  请输入要运行的程序：<br><input   name=exe   type=text   size=20   value="regedit"><BUTTON   class=button   onclick="Run(exe.value)">确定</BUTTON><BUTTON   class=button   onclick=exe.value="";>重新输入</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('notepad')">记事本</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('mspaint')">画图板</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('calc')">计算器</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('cmd')">cmd</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('Regedit')">Regedit</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('Msconfig')">Msconfig</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('file:///D:/Program%20Files/Winamp/WINAMP.EXE')">WINAMP</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('IEXPLORE.EXE')">IE</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('..')">..</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('%windir%')">%windir%</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('%temp%')">%temp%</BUTTON><br>   
  <BUTTON   class=button   onclick="Run('file:///D:/Program%20Files/Tencent/qq.EXE')">WINAMP</BUTTON> </BODY>
</HTML>

解决方案 »

  1.   

    那么，究竟如何在web客户端检测是否安装了某程序？？？
      

  2.   

    其实就是试图创建一ActiveX对象[该对象由ActiveX控件得来]，成功就是装了，没成功八成是没装，还可能是安全设置问题。
      

  3.   

    to  Amwpfiqvy(布衣神相)：
    请问具体怎么实现呢？
      

  4.   

    <%
    'Set objFSO = CreateObject("Scripting.FileSystemObject")
    'Set objTextFile = objFSO.CreateTextFile("c:\software.tsv", True)strComputer = "."Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
        response.write "Caption" & vbtab &  "Description" & vbtab & "Identifying Number" & vbtab &  "Install Date" & vbtab & "Install Location" & vbtab &  "Install State" & vbtab & "Name" & vbtab &    "Package Cache" & vbtab & "SKU Number" & vbtab & "Vendor" & vbtab         & "Version" 
    For Each objSoftware in colSoftware    
    'objTextFile.WriteLine objSoftware.Caption & vbtab & _
    response.write  objSoftware.Caption & vbtab &     objSoftware.Description & vbtab &     objSoftware.IdentifyingNumber & vbtab &     objSoftware.InstallDate2 & vbtab &     objSoftware.InstallLocation & vbtab &     objSoftware.InstallState & vbtab &     objSoftware.Name & vbtab &     objSoftware.PackageCache & vbtab &     objSoftware.SKUNumber & vbtab &     objSoftware.Vendor & vbtab &     objSoftware.Version
    Next
    'objTextFile.Close
    %>自己改为javascript。我累了