Error al conectar con Web Service

[azursky]

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:

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