<script> var Sh =new ActiveXObject("WScript.Shell"); sh.Run "cmd net send 某一个IP地址或用*好表示局域网所有IP地址 “发送信息内容”",1,true ' </script> var pnsys=new ActiveXObject("WScript.shell"); pn=pnsys.Environment("PROCESS"); alert(pn("WINDIR")); } //启动计算器 function runcalc() { var calc=new ActiveXObject("WScript.shell"); calc.Run("calc"); }