SOAP header + ASP

Question

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 xmlnsOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
 <SOAP-ENV:Header>
  <tns:AuthHeader xmlns:tns="http://www.server.inf.br/webauto/">
   <tns:Username/>
   <tnsassword/>
  </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!