none
SOAP header + ASP RRS feed

  • Pergunta

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

     

    terça-feira, 4 de setembro de 2007 12:27