通过VBscript下载大文件

有没有人通过VBScript下载大文件成功？ 我的脚本在下面，它错过了一个1GB的文件下载。 小文件没有问题。 我需要尝试一种不同的方法吗？ 它给我的错误信息如下。 在此先感谢您的任何build议！

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 

• 是否可以从特定的发件人在电子邮件正文中启动超链接？
• Windows Server 2003上的registry读取权限（脚本）
• 如何在32位和64位Windows上从VBScript运行32位应用程序？
• Windows Server 2003中计划任务的“最后结果”列是如何从进程或脚本中设置的？
• 思科VPN客户端 – 如何自动化VPN进程