Hola a todos, tengo un problema al querer realizar una coneccion con un WS.
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 originalConst 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