jscript version
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);
}
For the vbscript version, please check
This article.