<%
'Declara as variáveis utilizadas no exemplo

Dim objSoapClient : objSoapClient = NULL
Dim strMsg : strMsg = NULL

'Verifica se houve post com algum valor digitado
If (Request.QueryString("Retorno") > "") Then
response.write (Request("Retorno"))
'Instancia o objeto
Set objSoapClient = Server.CreateObject("MSSOAP.SoapClient30")

'Diz que é um HTTP Request
objSoapClient.ClientProperty("ServerHTTPRequest") = TRUE

'Chama o Web Service, passando URL, NOME do WS
objSoapClient.mssoapinit("http://digitalcerti.com.br:8080/digitalcerti_login/BrandaoServices1?wsdl")

'Consome chamando o método
Set strMsg = objSoapClient.getLogin(Request.QueryString("Retorno"))

'Mostra o retorno na tela
Response.Write strMsg
End If

%>

ERRO: Client erro '80070057'
Client:Incorrect number of parameters supplied for SOAP request HRESULT=0x80070057: Parâmetro incorreto. - Client:Unspecified client error. HRESULT=0x80070057: Parâmetro incorreto.