WinHttp.WinHttpRequestオブジェクトからXMLを解析する方法は？

Question

私は、サーバーに接続し、WinHttpRequestオブジェクトで応答テキスト（XMLとして）を取得するスタンドアロンのVBScriptを持っています。さて、私の質問は、XMLコンテンツをどのように解析するのかです。リクエスト（strPostData）を投稿するとき、私はレスポンスXMLを解析する必要があります。コンソールで出力を印刷できないため、以下で使用しているものが機能していません。私はResponseTextを出力することができます。しかし、私はそれを解析することができません。ここで

Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1") 
    objWinHttp.Send(strPostData) 
    objWinHttp.WaitForResponse() 

    If objWinHttp.Status = "200" Then 
     GetDataFromURL = objWinHttp.ResponseText 
     Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
     xmlDoc.loadXML(GetDataFromURL) 
     Set ops = xmlDoc.getElementsByTagName("Response\Status").item(0).text 


     WScript.Echo "Output is: " & ops 
     WScript.Echo "Message: " & GetDataFromURL 
     Msgbox GeteDataFromURL 
     WScript.Quit(0) 

解析されるXMLです：エラー：

<RCTRequest> 
    <Response> 
     <Name>aaa</Name> 
     <Status>44</Status> 
    </Response> 
</RCTRequest> 

Answer 1

あなたは、XPath

Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
    xmlDoc.async = false 
    xmlDoc.SetProperty "SelectionLanguage", "XPath"  
    xmlDoc.loadXML(GetDataFromURL) 
    Set ops =xmlDoc.SelectSingleNode("/RCTRequest/Response/Status") 
    WScript.Echo "Output is: " & (ops.text) 
    WScript.Echo "Message: " & GetDataFromURL 
    Msgbox GeteDataFromURL 
    WScript.Quit(0) 

Answer 2

を使用することができます私は、あなたが "オブジェクト必要なランタイムエラー" を取得したとします。ちょうどその行の先頭からsetを削除行

Set ops = xmlDoc.getElementsByTagName("Response\Status").item(0).text 

によって引き起こされます。

Answer 3

あなたはXMLDOMを使用して正しい軌道に乗っています。特定のデータをXML入力から解析する方法については、私の記事Reading XML Files in WSHを参照してください。