1.vbscript调用可执行文件方法
<script   language="vbscript">  
  sub   aaa()  
  DIM   objShell  
  Set   objShell=CreateObject("WScript.Shell")  
  objShell.Run   "d:\111.bat",1,FALSE  
  Set   objShell   =   Nothing  
  end   sub  
  </script>  
  <input   type="button"   name="aaa"   value="调用输入法"   onclick="aaa()">

2.vbscript调用可执行文件方法
  <SCRIPT   LANGUAGE=javascript>   
  function   aaa()  
  {  
(new   ActiveXObject("wscript.shell")).run("d:\\查询台\\zswd\\OnscreenKeyboard.exe")        
    }   
 
  function   Zc()   {              
if   (form1.text2.value=="男" )
form1.text2.value="女"
else
form1.text2.value="男"}
  </SCRIPT>