adodb - Windows 脚本宿主 (jscript)：如何下载二进制文件？

Question

我正在尝试使用 Windows Script Host (JScript) 自动下载文件。我看到 ADODB.Stream 有一个 Open 方法，其文档显示应该可以打开 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

你在正确的轨道上。

您应该使用 XMLHTTPRequest 对象与服务器进行通信。它有点像 Windows 脚本的“curl”。从远程服务器读取数据后，您可以将其写入 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 3

将上述代码转换为 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();
}

Answer 4

您的 URL 需要采用以下格式：

URL=scheme://server/folder