Hace poco me encontré con un inconveniente, necesitaba verificar la existencia de ciertos archivos que se encontraban en otro servidor web. Los servidores no eran visibles internamente, no hay directorios virtuales, por lo que tuve que hacer una función que verifique la existencia de una URL externa.

Function existeURL(strURL)
Dim objXMLHTTP, strReturn
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send

On Error Resume Next
If objXMLHTTP.status = 200 Then
existeURL = true
Else
existeURL = false
End If
End Function