0

我有一个从我们的网站提取 XML 的 VBS 文件。完成后它将在我们的本地服务器上运行。

我遇到的问题是，当我在工作站上运行文件（在 XP SP3 上运行 IIS6）时，出现错误：

“执行访问被拒绝：此虚拟目录不允许执行对象。”

我正在从我的桌面打开文件，所以我知道需要更改一个安全参数以允许可执行文件访问 XMLHTTP。我该如何解决？

Function Get_XML(api_url)
    Dim objHTTP, RespText, TempRespText
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    objHTTP.open "Get", api_url, False
    objHTTP.setRequestHeader "Content-Type", "text/xml"
    objHTTP.send

    RespText = objHTTP.ResponseText

    'Get_XML = CreateObject("Microsoft.XMLDOM")
    'Get_XML.async = False
    'Get_XML.loadXML RespText

'For testing:
    Get_XML = RespText

    Set objHTTP = Nothing
End Function
4

1 回答 1

0

我发现了问题。显然，我正在运行的 VBScript 版本不允许 MSXML2.ServerXMLHTTP 运行。不确定它是实际版本还是安全更新。所以我改变了：

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

到：

Set objHTTP = CreateObject("Microsoft.XMLHTTP")

它运行完美。

于 2011-03-18T18:20:45.393 回答