VBScript

Access SOAP Body XML

Demonstrates how to access the SOAP body in XML.

<?xml version="1.0" encoding="utf-8" ?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:cfdi="http://www.sat.gob.mx/cfd/3">
    <soapenv:Body>
        <tfd:TimbreFiscalDigital version="1.0" />
    </soapenv:Body>
</soapenv:Envelope>

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set xSoapEnvelope = CreateObject("Chilkat.Xml")

success = xSoapEnvelope.LoadXmlFile("soapMessage.xml")
If (success <> 1) Then
    outFile.WriteLine(xSoapEnvelope.LastErrorText)
    WScript.Quit
End If

' The root node is the SOAP envelope, and in this particular case has a Tag of "soapenv:Envelope"
outFile.WriteLine("SOAP envelope tag: " & xSoapEnvelope.Tag)

' The SOAP body (in this case) is a direct child of the SOAP envelope
' and has the tag "soapenv:Body"
' xSoapBody is a Chilkat.Xml
Set xSoapBody = xSoapEnvelope.FindChild("soapenv:Body")
If (xSoapEnvelope.LastMethodSuccess = 0) Then
    outFile.WriteLine("No direct child having the tag ""soapenv:Body"" was found.")
    WScript.Quit
End If

' The SOAP message body is the direct child of the SOAP envelope body:
' xMessageBody is a Chilkat.Xml
Set xMessageBody = xSoapBody.FindChild("TimbreFiscalDigital")
If (xSoapBody.LastMethodSuccess = 0) Then
    outFile.WriteLine("No direct child having the tag ""TimbreFiscalDigital"" was found.")

    WScript.Quit
End If

' If desired, get the XML of just the SOAP message body:
soapMessageXml = xSoapBody.GetXml()

' --------------------------------------------------------------------------------
' Also see Chilkat's Online WSDL Code Generator
' to generate code and SOAP Request and Response XML for each operation in a WSDL.
' --------------------------------------------------------------------------------

outFile.Close