Ho un problema, probabilmente dovuto alla sintassi errata per l'utilizzo delle libreria SOAP di Microsoft in ambiente Visual Basic 6.
Devo accedere tramite WSDL ad un archivio remoto.
Il WSDL è disponibile su http://carttestnal.rete.toscana.it/p.../AooSilWS?wsdl ed il metodo che devo utilizzare è getAllAoo(inizioPag, dimensionePag), che
restituisce la lista di tutti i record Aoo presenti sulla base dati, dove inizioPag deve essere posto uguale ad 1 e dimensionePag a 50.

Questo il codice che ho cercato di ricavare da vari esempi ed help, solo che non funziona e restituisce solo messaggi di errori. Qualcuno può dirmi dove è l'errore?

Dim SoapConnector As MSSOAPLib30.SoapConnector30
Dim SOAPSerializer As MSSOAPLib30.SoapSerializer30
Dim SOAPReader As MSSOAPLib30.SoapReader30
Dim SOAPParser As MSSOAPLib30.DimeParser30
Dim generaSOAP As String

Set SoapConnector = New MSSOAPLib30.HttpConnector30
SoapConnector.Property("EndPointURL") = "http://carttestnal.rete.toscana.it/proxy-aoo/services/AooSilWS?wsdl"
SoapConnector.Connect
SoapConnector.Property("SoapAction") = "http://carttestnal.rete.toscana.it/proxy-aoo/services/AooSilWS/getAllAoo"
SoapConnector.BeginMessage
Set SOAPSerializer = New MSSOAPLib30.SoapSerializer30
SOAPSerializer.Init SoapConnector.InputStream
SOAPSerializer.StartEnvelope
SOAPSerializer.StartBody
SOAPSerializer.StartElement "getAllAoo", "uri:Math", , "Functions"
SOAPSerializer.StartElement "inizioPag", "uri:Math", , "Functions"
SOAPSerializer.WriteString 1
SOAPSerializer.EndElement
SOAPSerializer.StartElement "dimensionePag", "uri:Math", , "Functions"
SOAPSerializer.WriteString 2
SOAPSerializer.EndElement
SOAPSerializer.EndElement
SOAPSerializer.EndBody
SOAPSerializer.EndEnvelope
SOAPSerializer.Finished
SoapConnector.EndMessage

Set SOAPReader = New MSSOAPLib30.SoapReader30
Set SOAPParser = New MSSOAPLib30.DimeParser30

SOAPReader.LoadWithParser SoapConnector.OutputStream, SOAPParser
If Not SOAPReader.Fault Is Nothing Then
generaSOAP = SOAPReader.FaultString.Text
MsgBox "Errore! " & generaSOAP
Else
generasoapok = SOAPReader.RpcResult.Text
End If
FINERICEZIONE:
Label2.Caption = generaSOAP & "- " & generasoapok