Question

我正在尝试使用Windows脚本宿主（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 Stream：

Scripting.FileSystemObject的：

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

Answer 2

你走在正确的轨道上。

您应该使用XMLHTTPRequest对象与服务器进行通信。它有点像Windows Script的“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=scheme://server/folder

Windows脚本宿主（jscript）：我如何下载二进制文件？

4 个答案: