Estou com um problema bem complicado e faz uns 5 dias que estou pesquisando na internet uma solução para o problema.
Quero consumir uma web service disponibilizada por um parceiro aqui da empresa onde trabalho, mas não estou conseguindo entrar nela por que ele pede uma autenticação passando pelo HEADER do método. Como fazer isso?
Vou postar aqui o conteúdo do método:
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns
OAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
<SOAP-ENV:Header>
<tns:AuthHeader xmlns:tns="http://www.server.inf.br/webauto/">
<tns:Username/>
<tns
assword/>
</tns:AuthHeader>
</SOAP-ENV:Header>
<SOAP-ENV:Body>
<tns:ConsultaAuto xmlns:tns="http://www.server.inf.br/webauto/">
<tns:UF/>
<tns:CNPJ/>
</tns:ConsultaAuto>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
meu código está assim:
<%
Dim SoapClient, xmlRetorno, rootNode, Reader
set xmlRetorno = server.CreateObject("MSXML2.DOMDocument.3.0")
Set SoapClient = server.CreateObject("MSSOAP.SoapClient30")
xmlRetorno.async = false
SoapClient.ClientProperty("ServerHTTPRequest") = true
call SoapClient.MSSoapInit("http://server/wsauto/wsAuto.asmx?WSDL")
'----------------------------------------------------------------------
'AUTENTICAÇÃO ACREDITO QUE SEJA AQUI
' ---------------------------------------------------------------------
xmlRetorno.loadXML(SoapClient.ConsultaAuto("VALOR_UF","VALOR_CNPJ"))
set rootNode = xmlretorno.documentElement
if rootNode.hasChildNodes() then
For Each item In rootNode.childNodes
response.write "Nome: "&item.nodeName & " Item: "&item.Text & "<br>"
For Each subitem In item.childNodes
response.write "Sub-Nome: "&subitem.nodeName&": "&subitem.text&"<BR>"
next
next
end if
Set xmlRetorno = Nothing
Set SoapClient = Nothing
Set rootNode = Nothing
%>
Obrigado pessoal!