xml - スクリプトは MSXML 6.0 では機能しませんが、バージョン 3.0 では機能します

Question

MSXML 3.0 を使用しているときに動作するが 6.0 を使用していないときに動作する小さな VB スクリプトがあります。4.0 と 5.0の両方に近づかないようにする必要があることを読みました。

スクリプトが行うのは、ノードを見つけて、メッセージ ボックスに内部テキストを表示することだけです。

テスト スクリプト:

Dim xmlResponseDocument

' Set xmlResponseDocument = CreateObject("Msxml2.DOMDocument.3.0")    ' uses MSXML 3.0
Set xmlResponseDocument = CreateObject("Msxml2.DOMDocument.6.0")    ' uses MSXML 6.0

' Load the xml document from a file for testing
xmlResponseDocument.load("C:\Trash\IsFollowupNurseValid.xml")

Dim Nodes
set Nodes=xmlResponseDocument.getElementsByTagName("IsFollowupNurseValidResult")

for each child in Nodes
    MsgBox child.text, ,child.nodeName                                
next

For Each lookupTypeNode In xmlResponseDocument.SelectNodes("//IsFollowupNurseValidResult")
    MsgBox lookupTypeNode.Text, , "Select Nodes"
Next

MsgBox "Finish Running"

Set Nodes=nothing   
set xmlResponseDocument = nothing

XML ドキュメント:

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
    <s:Body>
        <IsFollowupNurseValidResponse xmlns="http://example.com/Quark/">
            <IsFollowupNurseValidResult>false</IsFollowupNurseValidResult>
        </IsFollowupNurseValidResponse>
    </s:Body>
</s:Envelope>