'
' 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