Option Explicit

Dim soapSimpleMath
Dim result
Const WSDL_URL = "http://www.gama-system.com/webservices/exchangerates.asmx?WSDL"

' inicializacija
Set soapSimpleMath = CreateObject("MSSOAP.SoapClient")
soapSimpleMath.mssoapinit WSDL_URL,"ExchangeRates","ExchangeRatesSoap"

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

' rezultati
result = soapSimpleMath.GetExchangeRatesXMLSchema()
WScript.Echo "XML shema: " & vbNewLine & vbNewLine & result

result = soapSimpleMath.GetExchangeRate("BS", "USD", "2001-11-03", 1)
WScript.Echo "Vrednost nakupnega tečaja za USD po BS za 3.11.2001: " & result

result = soapSimpleMath.GetExchangeRatesXML("NKBM", "2001-11-13")
WScript.Echo "Tečajnica NKBM za 13.11.2001: " & vbNewLine & vbNewLine & result