xml-soap-user mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Jason Wells <ja...@semanticresearch.com>
Subject Re: interoperability?
Date Fri, 28 Jun 2002 19:40:06 GMT
Mark,

Here it is. I wouldn't exactly put this into a production system, but it 
does demonstrate MS/Apache SOAP interoperability.

Jason


'Sample MS.Net VB Script to
'call Apache SOAP service

option explicit

     Dim END_POINT_URL
     Dim CALC_NS
     Dim Serializer
     Dim Reader
     Dim ResultElm
     Dim FaultElm
     Dim Connector
     Dim Method

     END_POINT_URL = "http://localhost/app/rpcrouter"
     CALC_NS = "urn://the/service/name"
     Method = "someMethod"

     Set Connector = createobject("MSSOAP.HttpConnector")
     Connector.Property("EndPointURL") = END_POINT_URL
     Connector.Connect

     Connector.Property("SoapAction") = "uri:" & Method
     Connector.BeginMessage

     Set Serializer = createobject("MSSOAP.SoapSerializer")
     Serializer.Init Connector.InputStream

     Serializer.startEnvelope
     Serializer.startBody
     Serializer.startElement Method, CALC_NS, "STANDARD", "ns1"
     Serializer.endElement
     Serializer.endBody
     Serializer.endEnvelope

     Connector.EndMessage

     Set Reader = createobject("MSSOAP.SoapReader")
     Reader.Load Connector.OutputStream

     If Not Reader.Fault Is Nothing Then
         wscript.echo "Error: " & Reader.faultstring.text
     Else
         wscript.echo Reader.RPCResult.text
     End If

wscript.echo "Done."


On Friday, June 28, 2002, at 12:18  PM, MILLER,MARK M (HP-Corvallis,ex1) 
wrote:

> Jason,
>
> Would you mind providing the 46 lines of VBScript?
>
> Mark

Mime
View raw message