' test script for pocketSOAP / SQLData Server ' This calls the Edgar search service ' see www.soapclient.com ' ' The response is a chunk of HTML, this is typically to large ' to display with wscript.echo, so we just dump its size dim e set e = CreateObject("PocketSOAP.Envelope.2") e.methodName = "ProcessSRL" e.URI = "http://www.SoapClient.com/xml/SQLDataSoap.xsd" e.Parameters.Create "SRLFile", "/xml/edgar.sri" e.Parameters.Create "RequestName", "EDGAR" e.Parameters.Create "key", "AMD" x = e.serialize wscript.echo len(x) & vbCRLF & x dim t, r set t = CreateObject("PocketSOAP.HTTPTransport.2") t.SOAPAction = "/SQLDataSRL" t.Send "http://www.SoapClient.com/xml/SQLDataSoap.WSDL", x e.Parse t wscript.echo "Response text is " & len(e.Parameters.item(0).value) & " characters long"