Se me ocurre que quizas si haces previamente un ping al servidor y en funcion de la respuesta buscar o no la pagina quizas te funcione:
<%
strHost = "www.forosdelweb.com"
PATH = Server.mappath(".")
FILENAME = "Lexus.txt"
TARGET = PATH&"/"&FILENAME
Set objShell = Server.CreateObject("Wscript.Shell")
objShell.Run "%ComSpec% /c ping " & strHost & ">"&TARGET,0,true
set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.OpenTextFile(target, 1)
do while not file.AtEndOfStream
PING_OUTPUT = PING_OUTPUT & (file.ReadLine & "<br>")
loop
file.Close()
Response.Write PING_OUTPUT
%>
A mi me devuelve:
Haciendo ping a forosdelweb.com [72.52.208.59] con 32 bytes de datos:
Respuesta desde 72.52.208.59: bytes=32 tiempo=176ms TTL=49
Respuesta desde 72.52.208.59: bytes=32 tiempo=171ms TTL=49
Respuesta desde 72.52.208.59: bytes=32 tiempo=173ms TTL=49
Respuesta desde 72.52.208.59: bytes=32 tiempo=224ms TTL=49
Estad¡sticas de ping para 72.52.208.59:
Paquetes: enviados = 4, recibidos = 4, perdidos = 0
(0% perdidos),
Tiempos aproximados de ida y vuelta en milisegundos:
M¡nimo = 171ms, M ximo = 224ms, Media = 186ms
Quizas tengas que tener en cuenta temas de permisos para poder usar Wscript.Shell.
Saludos
