' ' test script for pocketSOAP / GLUE dim e set e = CreateObject("PocketSOAP.Envelope.2") e.methodName = "getQuote" e.URI = "urn:xmethods-delayed-quotes" e.Parameters.Create "symbol", "MSFT" dim t set t = CreateObject("PocketSOAP.HTTPTransport.2") t.SOAPAction = "" t.Send "http://services.xmethods.net/soap", e.serialize e.parse t wscript.echo "Stock quote for MSFT = " & e.parameters.item(0).Value