Хост сценариев Windows (jscript): как загрузить двоичный файл?

Вот код загрузки в 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

Сценарий.FileSystemObject:

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

Вы на правильном пути.

Вы должны использовать объект 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

Преобразовал приведенный выше код в 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();
}

Ваш URL должен быть в следующем формате:

URL=scheme://server/folder