CONSUMIR WEBSERVICE DO SPC COM AUTENTICAÇÃO - VB6

[Arlindo Pinheiro]

Amigos, boa tarde.

Preciso enviar o XML para o WebService do SPC, mais ele precisa de usuário e senha para autenticar.

Eu consigo testar pelo SoapUI sem problemas.

Tenho o código abaixo, mais não estou sabendo onde informar o usuário e senha nos fontes do VB6.

- Criando os Objetos DOMDocument e XMLHTTP
    Set objDom = CreateObject("MSXML2.DOMDocument")
    Set objXmlHttp = CreateObject("MSXML2.XMLHTTP")

- Carregar o XML
    objDom.async = False
    objDom.LoadXml XmlBody

- Abra a conexão do serviço da Web
    objXmlHttp.open "POST", AsmxUrl, False

- Criando o cabeçalho XML
    objXmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
    objXmlHttp.setRequestHeader "SOAPAction", SoapActionUrl

- Enviando o comando para abrir a solicitação XML
    objXmlHttp.send objDom.xml

Por favor, alguém pode me ajudar.

Grato.