El error que me tira es el siguiente:
msxml4.dll error '80072f99'
A security error occurred
Tambien intente cambiar el componente de coneccion por WinHTTP
WinHttp.WinHttpRequest error '80072f99'
A security error occurred
El error lo tira en la linea 54 que realiza el envio:
.send objDom.xml
Les dejo el codigo que estoy utilizando:
Código ASP:
Ver original
Const URL_WS = "https://www.webservice.com.ar/ws/" Const NOMBRE_WS = "TestWebService" Const ES_ASINCRONICO = false Dim strXML Dim objXmlHttp 'Set objXmlHttp = CreateObject("MSXML2.ServerXMLHTTP.4.0") set objXmlHttp = CreateObject("WinHTTP.WinHTTPRequest.5.1") strXML = "<?xml version=""1.0"" encoding=""utf-8""?>" & _ "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" " & _ "xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _ "<soap:Body>" & _ "<CheckActCode xmlns=""http://tempuri.org/"">" & _ "<actCode>123</actCode>" & _ "</CheckActCode>" & _ "</soap:Body>" & _ "</soap:Envelope>" invocarWS strXML , "test", URL_WS & NOMBRE_WS '------------------------------------------------------------------------------------------------------- Function invocarWS(pXML,pMetodo,pUrlWS) Dim lResolver, lConeccion, lEnvio, lRecivo Dim objDom Set objDom = CreateObject("MSXML2.DomDocument.4.0") ' Carga XML objDom.async = true objDom.loadXML pXML with objXmlHttp ' Abre el webservice .open "POST", pUrlWS , ES_ASINCRONICO .setProxy 2 ,"proxy.XXXXX.net:8002" , "" '.setOption(3) = "LOCAL_MACHINE\MY\XXXX" .SetClientCertificate "LOCAL_MACHINE\MY\XXXX" ' Crea headings .setRequestHeader "Content-Type", "text/xml; charset=utf-8" .setRequestHeader "SOAPAction", pMetodo 'seteo los tiempos lResolver = 5 * 1000 lConeccion = 5 * 1000 lEnvio = 15 * 1000 lRecivo = 60 * 1000 .setTimeouts lResolver, lConeccion, lEnvio, lRecivo ' Envia XML command .send objDom.xml 'While .readyState <> 4 '.waitForResponse 10000 'Wend Response.Write .responseText end with End Function