Option Explicit

Dim soapStockQuotes
Dim result

Const WSDL_URL = "http://www.gama-system.com/webservices/stockquotes.asmx?WSDL"

' inicializacija
Set soapStockQuotes = CreateObject("MSSOAP.SoapClient")
soapStockQuotes.mssoapinit WSDL_URL, "StockQuotes", "StockQuotesSoap"

' zacetek izvajanja
WScript.Echo "Spletna storitev: " & WSDL_URL

' rezultati
result = soapStockQuotes.GetStocksXMLSchema()
WScript.Echo "XML shema za vrednostne papirje: " & vbNewLine & vbNewLine & result

result = soapStockQuotes.GetIndexDailyValue("LJSE", "SBI20", "2002-01-30")
WScript.Echo "Vrednost slovenskega borznega indeksa za 30.1.2002: " & result

result = soapStockQuotes.GetLatestStockDailyValuesXML("LJSE", "BKPD")
WScript.Echo "Zadnja objavljena tečajnica borzne kotacije" & vbNewLine & _
	"prednostnih delnic na Ljubljanski borzi: " & vbNewLine & vbNewLine & result