0

Webサイトから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 に答える