This LotusScript agent gets current (15 minutes delayed) stock quote for IBM from an Internet-based Web Service.

Sub Initialize
'Specify the location of the service's WSDL file
sWSDL = "http://services.xmethods.net/soap/urn:xmethods-delayed-quotes.wsdl"
'Create a new MSSOAP client object
Set Client =CreateObject("MSSOAP.SoapClient")
'Initialize connection to the WSDL file and get WSDL structure
Call Client.mssoapinit (sWSDL)
'Call GetQuote function provided by the Web service
result = Client.GetQuote("IBM")
'Output the result to a message box
Messagebox result, MB_OK, "Quote"
End Sub


Example output from this agent: