Option Explicit

Dim wsdlurl, nationalLanguage 
wsdlurl = "http://www.agmodel.net/MetBroker/MetSOAP/"
nationalLanguage="en"

Dim soapClient3
set soapClient3 = CreateObject("MSSOAP.SoapClient30") 

rem uses local copy of MetSOAP.wsdl with Array references changed to AnyType (see SOAP Toolkit documentation for Array Data Type Support)
Call soapClient3.MSSoapInit(wsdlurl & "MetSOAPVBScript.wsdl", "MetSOAP", "MetSoapRemoteInterfacePort", wsdlurl & "MetSOAPClient.wsml")

if err <> 0 then
  wscript.echo "initialization failed " + err.description
end if

Dim databases
databases=soapClient3.listMetSources(nationalLanguage)

Dim MetSource
Dim dbIndex

for dbIndex = 0 To UBound(databases)
  set MetSource=databases(dbIndex)
rem wscript.echo MetSource.name
Next

Dim elementIndex

Dim missingvalue
missingvalue = -100000000



Dim result
Dim request
Set request = CreateObject("MetSOAP.StationMetRequest")

request.sourceID = "amedas"
request.stationID = "40341"

Dim starttime
Dim endtime
starttime = #7/13/2000#
endtime = #7/15/2000#
Dim interval
Set interval = CreateObject("MetSOAP.TimeInterval")
interval.starting = starttime
interval.ending = endtime
Set request.interval = interval

Dim requestedElements(1)
requestedElements(0) = 0
requestedElements(1) = 1
request.requestedElements = requestedElements

request.resolution = 1
request.language = "en"
request.missingValueIndicator = missingvalue
request.summarisingAllowed = True

Set result = soapClient3.getStationData(request)

Dim thisElementsData
Dim thisElement
Dim singleStore
Dim storeContents

Dim elementDataStoresIndex
Dim storeContentsIndex
Dim station
Dim operational

Set station = result.station
wscript.echo "Data for " & station.stationName

Set operational = station.operational
Dim operatingString
operatingString = "Operational from " & operational.starting & " to "
If operational.endless = True Then
    operatingString = operatingString & " the present"
Else
    operatingString = operatingString & operational.ending
End If
wscript.echo operatingString

dim elementArray
elementArray = result.ElementData
For elementIndex = 0 To UBound(elementArray)
    set thisElement=elementArray(elementIndex)
    wscript.echo thisElement.ElementName
    thisElementsData = thisElement.Data
    Dim dataItem
rem 93    
    For elementDataStoresIndex = 0 To UBound(thisElementsData)
        Set singleStore = thisElementsData(elementDataStoresIndex)
        wscript.echo singleStore.storeName
        
        storeContents = singleStore.Contents
        For storeContentsIndex = 0 To UBound(storeContents)
        '    MsgBox storeContents(storeContentsIndex)
            dataItem = storeContents(storeContentsIndex)
            If dataItem = missingvalue Then
                wscript.echo "missing"
            Else
                wscript.echo dataItem
            End If
        Next
    Next
Next