Estoy utilizando un objeto MSXML.HTTPRequest en una macro VB (excel) para comunicarme con un servidor HTTP. El problema es que arroja el siguiente error de forma intermitente.

msxml3.dll -2146697211 El sistema no puede localizar el recurso especificado.

Noté en mi sistema que esto sucedió cuando la red no funcionaba, pero mi cliente se ha quejado de que esto ocurre de manera intermitente en su máquina. Dado que su sistema tiene instalado Windows 7 y está funcionando a veces, no creo que sea un problema el que no se haya instalado la biblioteca correcta. Lo ha intentado en algunas redes, pero todavía falla.

Function xmlHTTPPost(strURL, strData)
  Dim objHttp

  On Error Resume Next
  xmlHTTPPost = ""
  Set objHttp = CreateObject("Microsoft.XMLHTTP")
  If Err.Number <> 0 Then
      Err.Clear
      Set objHttp = CreateObject("MSXML2.XMLHTTP")
  End If
  If Err.Number <> 0 Then
      MsgBox "Error creating XMLHTTP object"
      Err.Clear
      Exit Function
  End If
  objHttp.Open "GET", strURL, False
  If Err.Number <> 0 Then
      Err.Clear
      Set objHttp = Nothing
      Exit Function
  End If
  objHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  objHttp.setRequestHeader "User-Agent", "Mozilla Compatible (MS IE 3.01 WinNT)"
  objHttp.Send
  If Err.Number <> 0 Then
      MsgBox "Error " & Hex(Err.number) & " sending to server:" & vbCrLf & Err.description
      xmlHTTPPost = "ERROR: " & Err.Source & " " & Err.Number & " " & Err.Description
      Err.Clear
  Else
      xmlHTTPPost = objHttp.responseText
  End If
  Set objHttp = Nothing
End Function

Funciona perfectamente en mi caja, que es una instalación de Windows 7 + Microsoft Office 2007.

He buscado mucho en línea y se han mencionado vagamente dos razones.

Problemas de red debido a proxy o firewall. En este caso nunca debe conectarse, no de forma intermitente.Problema de instalación de la biblioteca. Una vez más, no debería funcionar en absoluto, pero ese no es el caso.

Realmente agradecería cualquier ayuda en esto.