JScript脚本实现下载

var objArgs=WScript.Arguments;
var sGet=new ActiveXObject("ADODB.Stream");
var xGet=null;
try{
    xGet=new XMLHttpRequest();
}catch(e){
    try{
        xGet=new ActiveXObject("Msxml2.XMLHTTP");
    }catch(ex){
        try{
            xGet=new ActiveXObject("Microsoft.XMLHTTP");
        }catch(e3){
            xGet=null;
        }
    }
}
if(xGet != null){
    xGet.Open("GET","http://localhost/aplan/mycalc.exe",0);
    xGet.Send();
    sGet.Mode=3;
    sGet.Type=1;
    sGet.Open();
    sGet.Write(xGet.ResponseBody);
    sGet.SaveToFile("D:\\haha.exe",2);
}