Windows腳本宿主（jscript）：我如何下載二進制文件？

Question

我試圖用Windows Script Host（JScript）自動化文件下載。我看到ADODB.Stream有其文檔使它看起來像它應該能夠打開HTTP URL和流響應主體的開啓方式：

var url = 'http://example.com/example.tar.gz'; 
var path = 'example.tar.gz'; 

var input = WScript.CreateObject('ADODB.Stream'); 

input.Open(url); 
input.SaveToFile(path); 
input.Close(); 

但它在Open電話與

炸彈（null）：在此操作的範圍內找不到與名稱，範圍或選擇條件匹配的對象或數據。

Answer 1

這是在JScript中的下載代碼。還添加了一些對API信息的引用。

var Source = WScript.Arguments.Item(0); 
var Target = WScript.Arguments.Item(1); 
var Object = WScript.CreateObject('MSXML2.XMLHTTP'); 

Object.Open('GET', Source, false); 
Object.Send(); 

if (Object.Status == 200) 
{ 
    // Create the Data Stream 
    var Stream = WScript.CreateObject('ADODB.Stream'); 

    // Establish the Stream 
    Stream.Open(); 
    Stream.Type = 1; // adTypeBinary 
    Stream.Write(Object.ResponseBody); 
    Stream.Position = 0; 

    // Create an Empty Target File 
    var File = WScript.CreateObject('Scripting.FileSystemObject'); 
    if (File.FileExists(Target)) 
    { 
     File.DeleteFile(Target); 
    } 

    // Write the Data Stream to the File 
    Stream.SaveToFile(Target, 2); // adSaveCreateOverWrite 
    Stream.Close(); 
} 

ADODB流：

• http://www.w3schools.com/ado/ado_ref_stream.asp
• http://msdn.microsoft.com/en-us/library/windows/desktop/ms675032.aspx
• http://msdn.microsoft.com/en-us/library/windows/desktop/ms680846.aspx

Scripting.FileSystemObject的：

• http://www.w3schools.com/asp/asp_ref_filesystem.asp

Answer 2

您的網址需要在以下格式：

URL=scheme://server/folder 

Answer 3

你在正確的軌道上。

您應該使用XMLHTTPRequest對象與服務器進行通信。這有點像Windows Script的「捲曲」。從遠程服務器讀取數據後，您可以將其寫入ADODB流並在腳本中對其進行處理。在你的情況下，使用FileSystemObject寫入文件看起來是最合乎邏輯的操作過程。

所以你的代碼可能看起來是這樣的：

' Set your settings 
strFileURL = "http://www.domain.com/file.zip" 
strSavePath = "C:\somefolder\" 

' Send an HTTP request for the file 
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") 

objXMLHTTP.open "GET", strFileURL, false 
objXMLHTTP.send() 

' If the server responds with "OK"... 
If objXMLHTTP.Status = 200 Then 
    ' Create a stream object to write downloaded data to 
    Set objADOStream = CreateObject("ADODB.Stream") 
    objADOStream.Open 
    objADOStream.Type = 1 'adTypeBinary 

    objADOStream.Write objXMLHTTP.ResponseBody 
    objADOStream.Position = 0 

    ' Create an empty file on disk 
    Set objFso = Createobject("Scripting.FileSystemObject") 
    ' Make sure we don't have any name collision... 
    If objFso.Fileexists(strSavePath) Then objFSO.DeleteFile strSavePath 
    Set objFso = Nothing 

    ' Write the stream data to file 
    objADOStream.SaveToFile strSavePath 
    objADOStream.Close 
    Set objADOStream = Nothing 
End if 

Set objXMLHTTP = Nothing 

Answer 4

將上述代碼轉換爲JavaScript。這似乎對我有用。建議添加一個try catch塊給調用者。另外，轉換爲異步。我已經使用這段代碼同時保存了大約90個文件。由於刪除文件（必要的覆蓋失敗）是同步的，因此最好將其移動到多個文件的單獨函數中。

function saveFile(sSourceUrl, sDestFile) { 
    var objXMLHTTP = new ActiveXObject("MSXML2.XMLHTTP"); 
    objXMLHTTP.onreadystatechange=function() { 
     if (objXMLHTTP.readyState === 4) { 
      var objADOStream = new ActiveXObject("ADODB.Stream"); 
      objADOStream.open(); 
      objADOStream.type = 1; // Binary 
      objADOStream.write(objXMLHTTP.ResponseBody); 
      objADOStream.position = 0; 
      objADOStream.saveToFile(sDestFile, 2); 
      objADOStream.close(); 
     } 
    }; 

    objXMLHTTP.open("GET", sSourceUrl, false); 
    objXMLHTTP.send(); 
}