consumir soap envelope

[alexvb]

hola
estoy tratando de consumir una respuesta de webservice, el cual es el siguiente:

Código PHP:

 Dim SOAPResponse, oXmlDOC, ErrorDesc, objXMLDoc, ErrorPayment                
    SOAPResponse = "<?xml version=""1.0"" encoding=""utf-8""?>"
    SOAPResponse = SOAPResponse & "<soap:Envelope>"
    SOAPResponse = SOAPResponse & "    <soap:Body>"
    SOAPResponse = SOAPResponse & "        <ValidatePhoneAccountResult>"
    SOAPResponse = SOAPResponse & "            <MessageID>1</MessageID>"
    SOAPResponse = SOAPResponse & "            <ValidatePhoneAccountStatus>"
    SOAPResponse = SOAPResponse & "                <StatusID>1</StatusID>"
    SOAPResponse = SOAPResponse & "                <StatusDescription>Success</StatusDescription>"
    SOAPResponse = SOAPResponse & "            </ValidatePhoneAccountStatus>"
    SOAPResponse = SOAPResponse & "        </ValidatePhoneAccountResult>"
    SOAPResponse = SOAPResponse & "    </soap:Body>"
    SOAPResponse = SOAPResponse & "</soap:Envelope>" 
    response.Write(SOAPResponse)
    Set objXMLDoc = CreateObject("Microsoft.XMLDOM") 
    'objXMLDoc.async = False
    objXMLDoc.loadXML(SOAPResponse)
    Set NodeList = objXMLDoc.documentElement.childNodes(0).childNodes(0).selectNodes("ValidatePhoneAccountResult")   'linea 20

    ErrorDesc = ""
    For Each Node In NodeList 
        'If Node.childNodes(0).text = "error" Then
        response.Write("<br>")
        ErrorDesc = "<strong>Error: </strong>" & Node.childNodes(1).text
        ErrorPayment = true
        'End If
    Next
    Set objXMLDoc = Nothing  

y al poder ejecutarlo me sale un error,

Microsoft VBScript runtime error '800a01a8'

Object required: '[object]'

/testxml.asp, line 20

no se exactamente como acceder a los nodos del xml de respuesta, bueno a menos q el mismo xml este mal lo cual he revisado y todo parece estar en orden

muchas gracias