' ' Basic Inter-op test script for pocketSOAP ' Test4s4c Test4s4c2 TestGlue TestRope TestApache TestSoapLite Function Test4s4c() dim soap, t set soap = CreateObject("PocketSOAP.Envelope.2") soap.methodName = "Add" soap.URI = "http://simon.fell.com/calc" soap.Parameters.Create "a", 100 soap.Parameters.Create "b", 20 set t = CreateObject("PocketSOAP.HTTPTransport.2") t.Send "http://soap.4s4c.com/ssss4c/soap.asp", soap.serialize soap.parse t ' or just go for the one we want wscript.echo "4s4c at www.4s4c.com result (expecting 120) : " & soap.Parameters.ItemByName("added").Value end Function Function Test4s4c2() dim soap, t set soap = CreateObject("PocketSOAP.Envelope.2") soap.methodName = "Concat" soap.URI = "http://simon.fell.com/strings" soap.Parameters.Create "chunks", array("one","two","three","four") set t = CreateObject("PocketSOAP.HTTPTransport.2") t.Send "http://soap.4s4c.com/ssss4c/soap.asp", soap.serialize soap.parse t ' or just go for the one we want wscript.echo "4s4c at www.4s4c.com result (onetwothreefour) : " & soap.Parameters.Item(0).Value end Function Function TestGlue() dim soap, t set soap = CreateObject("PocketSOAP.Envelope.2") set t = CreateObject("PocketSOAP.HTTPTransport.2") soap.methodName = "getQuote" soap.URI = "urn:xmethods-delayed-quotes" soap.Parameters.Create "symbol", "AMD" t.soapAction = "" t.Send "http://services.xmethods.net/soap", soap.serialize soap.parse t ' or just go for the one we want wscript.echo "GLUE at services.xmethods.com result (Stock Quote for AMD) : " & soap.Parameters.Item(0).Value end Function Function TestApache() dim soap, t set soap = CreateObject("PocketSOAP.Envelope.2") set t = CreateObject("PocketSOAP.HTTPTransport.2") soap.methodName = "getTemp" soap.URI = "urn:xmethods-Temperature" soap.Parameters.Create "zipcode", "94107" t.SOAPAction = "" t.Send "http://services.xmethods.net/soap/servlet/rpcrouter", soap.serialize soap.parse t ' or just go for the one we want wscript.echo "Apache at services.xmethods.com result (Current temp. in San Francisco) : " & soap.Parameters.ItemByName("return").Value end Function Function TestSoapLite() dim soap, t set soap = CreateObject("PocketSOAP.Envelope.2") set t = CreateObject("PocketSOAP.HTTPTransport.2") soap.methodName = "BabelFish" soap.URI = "urn:xmethodsBabelFish" soap.Parameters.Create "translationmode", "en_de" soap.Parameters.Create "sourcedata", "babel fish in German" t.soapAction = "urn:xmethodsBabelFish#BabelFish" t.Send "http://services.xmethods.net/perl/soaplite.cgi", soap.serialize soap.parse t ' or just go for the one we want wscript.echo "Soap::Lite at www.xmethods.com result (babel fish in German) : " & soap.Parameters.Item(0).Value end Function Function TestRope() dim x, soap, t set soap = CreateObject("PocketSOAP.Envelope.2") set t = CreateObject("PocketSOAP.HTTPTransport.2") soap.methodName = "GetServerTime" soap.URI = "urn:Foo" t.Send "http://www.soaptoolkit.com/soapdemo/services.asp", soap.serialize soap.parse t ' or just go for the one we want wscript.echo "ROPE at www.soaptoolkit.com result (expecting current date/time) : " & soap.Parameters.Item(0).Value end Function