下载对象时获得“访问被拒绝”

Question

我正在尝试通过运行批处理脚本来下载svn客户端。为此，我使用了从批处理文件中调用的这段VBS。现在这段代码可以工作了，因为我已经成功下载了一些文件，但是当我尝试从sourceforge.net下载this file时，我在下载send()之后收到了一条拒绝访问的错误消息。任何关于为什么会发生这种情况以及可以避免的洞察都将是有帮助的。

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
do until objXMLHTTP.Status = 200 :  wscript.sleep(1000) :  loop 

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
  Set objFSO = Nothing

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

Set objXMLHTTP = Nothing

Answer 1

由于您试图从重定向的URL下载文件，因此访问被拒绝。如果你尝试直接下载一个文件，你会发现你不会得到这个错误。

你应该使用最新的版本。

Set objXMLHTTP= CreateObject("Msxml2.XMLHttp.6.0")

但是使用..

Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

..is目前还可以。

如果您要将sourceforge.com添加到IE中的受信任站点，请进入IE选项->安全，选择受信任站点进入自定义级别，将“跨域访问数据源”更改为启用，这将使您超越访问被拒绝的错误。