一个activeX方法 刚刚发现
解答:此题 http://www.iteye.com/problems/48046
转自:http://www.blueshop.com.tw/board/show.asp?subcde=BRD20061014093911FUN&fumcde=FUM20041006152641OLG

试测过可用.

wsh=new ActiveXObject("WScript.Shell");fso=new ActiveXObject("Scripting.FileSystemObject");label1:for(;;) {tmp=Math.random()+".tmp";//下面这句这也太难以想像了...用来代替sleep.try{fso.CreateTextFile(tmp,false,true);break;}catch(e){continue label1;}}wsh.Run('cmd /c dir/w > '+tmp,0,1);r=fso.OpenTextFile(tmp,1);alert(tmp+'\n\n'+r.ReadAll());r.Close();fso.DeleteFile(tmp);