Скачивание больших файлов через VBscript

У кого-нибудь получалось скачивать большие файлы через VBScript? Мой сценарий ниже, и он выдает ошибку при загрузке файла размером более 1 ГБ. Маленькие файлы работает без проблем. Мне нужно попробовать другой метод? Сообщение об ошибке, которое он дает мне, находится ниже. Спасибо заранее за любые предложения!

strFileURL = "http://10.0.0.0/File.zip"
strHDLocation = "C:\File.zip"


Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.setTimeouts 1000 * 60 * 60, 1000 * 60 * 60, 1000 * 60 * 60, 1000 * 60 * 60
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
  Set objADOStream = CreateObject("ADODB.Stream")
  objADOStream.Open
  objADOStream.Type = 1 'adTypeBinary

  objADOStream.Write objXMLHTTP.ResponseBody
  objADOStream.Position = 0    'Set the stream position to the start

  Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation

  objADOStream.SaveToFile strHDLocation
  objADOStream.Close
  Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing
Set objFSO = Nothing

Я получаю следующее сообщение об ошибке:

Error: Not enough storage is available to complete this operation.
Code: 8007000E
Source: msxml3.dll