Invocar función dentro de un servicio web desde ASP

[PosProdukcion]

Hola, estoy intentando implementar una llamada a un servicio web (definido con WSDL) desde un script ASP.

Como parámetro tengo un fichero XML (que ya tengo formado) y como respuesta otro XML, ahora ignoro de qué manera hacer la llamada concreta al servicio y a la función deseada dentro de este y como pasar el parámetro.

También ignoro según la definción del WSDL si necesito el SOAP o me basta con MSXML2.XMLHTTP (según esto)

He leido acerca de SOAP y WSDL y bueno, algo he logrado enterarme pero ahora ignoro de que manera realizar la llamada desde ASP...

La definición del WSDL es esta:

Código:

<wsdl:definitions targetNamespace="https://www.url_proveedor.es/proveedor/axis/SolicitudService">
<wsdl:message name="registrarXmlRequest">
 <wsdl:part name="xml" type="xsd:string"/>
 </wsdl:message>
<wsdl:message name="registrarXmlResponse">
 <wsdl:part name="registrarXmlReturn" type="xsd:string"/>
 </wsdl:message>
<wsdl:portType name="JaxRpcSolicitudService">
<wsdl:operation name="registrarXml" parameterOrder="xml">
 <wsdl:input message="impl:registrarXmlRequest" name="registrarXmlRequest"/>
 <wsdl:output message="impl:registrarXmlResponse" name="registrarXmlResponse"/>
 </wsdl:operation>
 </wsdl:portType>
<wsdl:binding name="SolicitudServiceSoapBinding" type="impl:JaxRpcSolicitudService">
 <wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
<wsdl:operation name="registrarXml">
 <wsdlsoap:operation soapAction=""/>
<wsdl:input name="registrarXmlRequest">
 <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://servicioweb.agencia.com" use="encoded"/>
 </wsdl:input>
<wsdl:output name="registrarXmlResponse">
 <wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="https://www.url_proveedor.es/proveedor/axis/SolicitudService" use="encoded"/>
 </wsdl:output>
 </wsdl:operation>
 </wsdl:binding>
<wsdl:service name="JaxRpcSolicitudServiceService">
<wsdl:port binding="impl:SolicitudServiceSoapBinding" name="SolicitudService">
 <wsdlsoap:address location="https://www.url_proveedor.es/proveedor/axis/SolicitudService"/>
 </wsdl:port>
 </wsdl:service>
 </wsdl:definitions>

O sea, quiero invocar un servicio:

https://www.url_proveedor.es:443/pro...licitudService

Dentro de este la función registrarXml con los parámetros input registrarXmlRequest y output registrarXmlResponse, formateados en Base 64.

¿Como se ajusta esto al siguiente código? ¿Como se si es GET o POST o ninguna de ellas (el WSDL define un binding style="rpc")? Este código me da una URL de un servicio, pero como invoco una función dentro de este servicio?:

Código:

dim objXML
set objXML = CreateObject("MSXML2.ServerXMLHTTP")
objXML.Open "GET", strURL, False 'SUPONGO QUE AQUI INVOCO EL SERVICIO ¿COMO INVOCO LA FUNCIÓN?
objXML.Send
strQuote = objXML.ResponseText 'SUPONGO QUE AUI CAPTURO LA RESPUESTA
set objXML = nothing

Gracias

[PosProdukcion]

Hace tiempo que logré solucionarlo, pero tardé en poner aquí la solución, por si le interesa a alguien.

Para codificar SOAP ENVELOPE en estilo RPC/Encoded o en otros estilos puedes leer esta documentación.

Para invocar un servicio web desde ASP Clásico, puedes usar esto:

Código asp:

Function llamadaServicioWEB(xmlSOAP)
        Dim oSOAPprov
        Dim strURL, SoapServer, SoapPath
 
        strURL = "https://www.proveedor.com/carpetaServ/axis/ElServicio?wsdl"
        SoapServer = "www.proveedor.com"
        SoapPath = "/carpetaServ/axis/ElServicio?wsdl"
 
        Set oSOAPprov = Server.CreateObject("MSXML2.ServerXMLHTTP")
 
        oSOAPprov.Open "POST", strURL, False
 
        oSOAPprov.setRequestHeader "Man", "POST " & SoapPath & " HTTP/1.1"
        oSOAPprov.setRequestHeader "Host", SoapServer
        oSOAPprov.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
        oSOAPprov.setRequestHeader "SOAPAction", "https://www.proveedor.com/carpetaServ/axis/ElServicio"
 
        oSOAPprov.Send(xmlSOAP)
        Set xmlSOAP = nothing
 
        Dim xmlRespuesta, strRespuesta
        If oSOAPprov.status = 200 Then '200 = STATUS OK
            Set xmlRespuesta = Server.CreateObject("Microsoft.XMLDOM")
            xmlRespuesta.loadXML(oSOAPprov.ResponseText)
 
            ' ==== ANALIZAR RESPUESTA SEGUN CADA CASO ====
 
            Set xmlRespuesta = nothing
        Else
            'Si status <> 200 no puede analizar la respuesta
            strRespuesta = "Error " & oSOAPprov.status & ": " & errServerXMLHTTP(oSOAPprov.status)
        End If
        Set oSOAPprov = nothing
        
        llamadaServicioWEB = strRespuesta
    End Function
 

Acerca de las líneas siguientes, son imprescindibles para establecer las cabeceras del paquete HTTP, si no se ponen, el servicio devolverá el error "NO SOAP-Action Header"

Código asp:

oSOAPprov.setRequestHeader "Man", "POST " & SoapPath & " HTTP/1.1"
oSOAPprov.setRequestHeader "Host", SoapServer
oSOAPprov.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oSOAPprov.setRequestHeader "SOAPAction", "https://www.proveedor.com
 

[Fanathur]

Gracias por el código. Lo he probado pero me da un error que no logro entender (el porqué). El proveedor es la Agencia de Protección de Datos, y el archivo XML es uno de prueba enviado por ellos. El código es el siguiente:

strURL = "https://www.aespd.es:443/agenciapd/axis/SolicitudService?wsdl"
SoapServer = "www.aespd.es"
SoapPath = "/agenciapd/axis/SolicitudService?wsdl"

Set oSOAPprov = CreateObject("MSXML2.ServerXMLHTTP")
oSOAPprov.Open "POST", strURL, False

oSOAPprov.setRequestHeader "Man", "POST " & strURL & " HTTP/1.1"
oSOAPprov.setRequestHeader "Host", SoapServer
oSOAPprov.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oSOAPprov.setRequestHeader "SOAPAction", "https://www.aespd.es:443/agenciapd/axis/SolicitudService"
oSOAPprov.send (parser.XML)

El resultado dice que está mal la etiqueta envio:
<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<soapenv:Body>
<soapenv:Fault>
<faultcode>soapenv:Server.userException</faultcode>
<faultstring>org.xml.sax.SAXException: Bad envelope tag: envio</faultstring>
<detail/>
</soapenv:Fault>
</soapenv:Body>
</soapenv:Envelope>

¿Me puedes ayudar? Gracias.