funcion existe carpeta remota

[lexus]

hola a todos
hay alguna forma de
hacer una funcion que me diga si existe una direccion o una carpeta en una pagina web remota?

ejemplo

verificar('http://www.microsoft.com/aparatos/')


me interesaria ke me retorne true o false si la carpeta aparatos existe en esa direccion

lo ke intento hacer es verificar la existencia de carpetas en un servidor remoto y hacer una accion dependiendo si existe o no existe.

[Shiryu_Libra]

eso no puede intentarse con AJAX

[u_goldman]

Iniciado por Shiryu_Libra

eso no puede intentarse con AJAX

No...AJAX no puede ser usado para conexiones a un dominio externo.

Ahora, saber si existe una carpeta se me hace que sería complicado a menos por supuesto que no puedas dejar un script en dicho sitio para determinar si localmente existe o no.

Saludos

[AlZuwaga]

Con AJAX?
Creo que con el objeto Microsoft.XMLHTTP podría hacerse.

[u_goldman]

Iniciado por Al Zuwaga

Con AJAX?
Creo que con el objeto Microsoft.XMLHTTP podría hacerse.

Si puedes hacer llamadas a otro dominio con el XMLHTTP server side, pero no me queda claro que regresaría...porque Lexus quiere saber si existe una carpeta físicamente, podría ser que pudieras evaluar si existe un directorio virtual, pero físico no lo creo...que se sho!

[AlZuwaga]

Pero... ¿no se puede conocer el STATUS de una solicitud?
es decir, si devuelve 404 es no encontrado, si devuelve 403 (prohibido) pues la carpeta existe ero no hay un archivo por default en dicha carpeta, si devuelve 200 es que todo está OK, etc.

Igual aclarar que nunca usé ese objeto

[u_goldman]

La verdad que no lo se a ciencia cierta, se que te regresa el HTML resultante, supongo que debe regresar algún error, pero a lo que voy es...el servidor puede tener configuraciones para negar el acceso de ciertos agentes a sus subcarpetas, esto dificulta aún más la tarea de saber si existe un directorio de manera física, podrías saber que existe un directorio virtual, o que la URL es correcta en caso de haber alguna respuesta tipo HTML, pero no podrías saber si realmente dicho folder existe remotamente, y esto tiene que ver mucho me imagino por algún tema de seguridad.

Saludos

[Shiryu_Libra]

es cierto que te regresaria HTML, en caso de codigo 200, pero eso seria caso afirmativo o "TRUE", de lo que lexus quiere determinar... no encuentro tan mala la idea, ademas no consumiria nada de recursos por ningun lado, mas que la HTMLrequest, que es como querer consultar directamente en el explorer que no SENSEI??

[sqa212]

para saber si una carpeta remota existe o no lo puedes hacer de esta forma:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Function GetHTML()
Dim objXMLHTTP, strHTML, strURL
strURL="http://www.forosdelweb.com/fdwtheme/images/statusicon/"
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.setRequestHeader "Accept-Language", "sp"
objXMLHTTP.setRequestHeader "Pragma", "no-cache"
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.SetRequestHeader "Content-Type", "text/html"
objXMLHTTP.SetRequestHeader "charset", "iso-8859-1"
objXMLHTTP.Send
If objXMLHTTP.Status >= 400 And objXMLHTTP.Status <= 599 Then
Response.write "Existe un error : " & objXMLHTTP.Status & " - " & objXMLHTTP.statusText
Else
Response.write "STATUS OK" & "<BR>"
End If
Set objXMLHTTP = Nothing
End Function
Response.Write GetHTML()
%>

[Shiryu_Libra]

buena funcion SQA, esperemos que le sirva a LEXUS

[u_goldman]

Precisamente a lo que me refería es eso, si el servidor no admite el request de este agente, o no admite browsing que es muy común, no lo podrás saber, además no sabrás si se trata de un directorio físico o virtual.
Y tiene todo el sentido del mundo, nadie quiere que su website esté expuesto de esa manera. ¿Cómo voy a querer que alguien sepa si tengo ciertos folders o no?

[Shiryu_Libra]

y que se tiene que hacer para prevenir ese tipo de consultas Sensei en Artes Ocultas???

[u_goldman]

No es tan oculto para comenzar un simple archivo robots y nada mas es el entremés, podrías también deshabilitar el webDav desde el IIS, podrías tener un firewall bloqueando esto y demás...

Saludos

[lexus]

muchas gracias por todo
esa es la funcion ke necesito,
yo tengo acceso a el servidor remoto para darle los permisos necesarios pero pues al probar la funcion me retorna esto:
Existe un error : 403 - Access Forbidden
pero pues yo le estoy dando todos los permisos. ke tengo ke hacer para ke me retorne ke existe esa carpeta?
yo solo necesito ke me diga si existe o no existe y yap..
gracias..

[u_goldman]

Iniciado por lexus

muchas gracias por todo
esa es la funcion ke necesito,
yo tengo acceso a el servidor remoto para darle los permisos necesarios pero pues al probar la funcion me retorna esto:
Existe un error : 403 - Access Forbidden
pero pues yo le estoy dando todos los permisos. ke tengo ke hacer para ke me retorne ke existe esa carpeta?
yo solo necesito ke me diga si existe o no existe y yap..
gracias..

Pero vuelvo a la misma, si tienes privilegios para dar permisos, quiere decir que tambien tienes privilegios para montar algun tipo de aplicacion, por qué mejor no crear una aplicación local que detecte si ahora si, existe físicamente algún directorio?

Llamas a tu aplicación, le mandas por URL el nombre del directorio y el script te regresa un si o un no; listo.

[AlZuwaga]

Hola, sólo vengo a romper un poco las pelotas :)
No entiendo por qué u_g está empecinado () en que si la carpeta existe físicamente en el otro servidor.
Vuelvo a leer el mensaje de lexus y no encuentro por ningún lado que se refiera a carpetas físicas. Cito lo siguiente:

lo ke intento hacer es verificar la existencia de carpetas en un servidor remoto y hacer una accion dependiendo si existe o no existe.

Y lo podría interpretar como lo siguiente:

Código:

a_verificar = "http://www.sitio.com/carpetita/"
if existe(a_verificar) then
response.write "<a href=""" & a_verificar & """>acceder</a>"
else
response.write "No existe la dirección " & a_verificar
end if

Código:

Existe un error : 403 - Access Forbidden

Pues... man, el error te está diciendo que la carpeta existe. Si no existiera, te devolvería un 404.. ¿no?

[u_goldman]

Porque soy necio, como que por qué?

Fácil...saber si existe o uno una carpeta en una web remota depende de muchos factores como ya lo mencioné antes, es decir, es muy posible que exista físicamente, pero no exista para la internet; es posible también que no exista, y que solo exista virtualmente, por lo tanto, a mi se me ocurre que el "aprouch" más seguro y fidedigno es hacer una aplicación en aquél servidor, -toda vez que está comprobado que tenemos el suficiente acceso- para determinar si existe o no, nada más es eso.

Ahora que está tan de moda la tecnología asíncronica, se nos olvida que tiene sus limitaciones y el tema de seguridad es algo que nos impide hacer muchas cosas con esta tecnología (para bien obviamente). No es que esté realmente empecinado en que se haga de una forma u otra, es solo que creo que debemos pensar en el mayor número de posiblidades no solo irnos con la primera idea.

Pre-Salud

[EDIT]El error a mi me parece mas bien un tema de browsing (-acceso denegado), en este caso efectivamente quiere decir que la carpeta existe, pero si yo impido que algun agente la vea, dira que no existe.[/EDIT]

[lexus]

ok alzuaga, perfecto estamos totalmente de acuerdo, ya habia soluciondo ese problema
asi"

<%
Function verificar_heladeria(strURL)
Dim objXMLHTTP, strHTML
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.setRequestHeader "Accept-Language", "sp"
objXMLHTTP.setRequestHeader "Pragma", "no-cache"
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.SetRequestHeader "Content-Type", "text/html"
objXMLHTTP.SetRequestHeader "charset", "iso-8859-1"
objXMLHTTP.Send ' linea 12
If objXMLHTTP.Status = 404 Then
verificar_heladeria = false
Else
verificar_heladeria = true
End If
Set objXMLHTTP = Nothing
End Function
%>



y me estaba funcionando con las pruebas localmente en mi red de la empresa pero coloce un ip ke esta lejos fuera de mi red y me saco este error.


Tipo de error:
msxml3.dll (0x80072EFD)
A connection with the server could not be established
verificar_conexion.asp, línea 12


ke podra ser?

pd: tengo acceso a la maquina remota pero no puedo colocar nada alli ni instalar nada. solo leer y cambiar unos cuantos permisos de resto nada mas.

[sqa212]

¿Que ocurre si pones la url en el navegador?
¿Te funciona con "http://www.forosdelweb.com/fdwtheme/images/statusicon/"?
¿Quizas sea el firewall del pc que usas?

[lexus]

si me funciona http://www.forosdelweb.com/fdwtheme/images/statusicon/

lo ke kiero ke me haga esta funcion es ke me diga si existe o no una direccion completa ya sea asi: http://www.loquesea.com o asi: http://190.123.3.8/est

ke me retorne true si existe y false si no existe..
pero me saco este error ke publique anteriormente asi ke pues nose ke pasa
me pueden colaborar con esto porfavor.

[AlZuwaga]

En un post anterior dije que nunca usé ese objeto, pero mentí.
Si lo usé, pero siempre de manera infructuosa.. errores por todos lados.
Y creo que era debido a que estaba tras un proxy ya que para direcciones locales no había problemas, pero cuando salía de la red local me daba errores.

¿Será esa tu situación, lexus?

[lexus]

pues en mi red no hay proxy, en caso ke haya proxy en el computador remoto donde trato de acceder ke tengo ke hacer?
me cuentas porfa.

[lexus]

aguien sabe como solucionar mi problema?

[lexus]

hola gracias por la ayuda a todos, actualmente lo estoy haciendo asi
ke solo me muestre false cuando no encuentre la pagina, pero cuando el computador esta apagado me saca otro error.

hay forma de que cuando el copmputador al ke trato de conectarme este apagado me devuelva false y no ese errror feo ke sale?

<%
Function verificar_conexion(strURL)
Dim objXMLHTTP, strHTML
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.setRequestHeader "Accept-Language", "sp"
objXMLHTTP.setRequestHeader "Pragma", "no-cache"
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.SetRequestHeader "Content-Type", "text/html"
objXMLHTTP.SetRequestHeader "charset", "iso-8859-1"
objXMLHTTP.Send
If objXMLHTTP.Status = 404 Then
verificar_heladeria = false
Else
verificar_heladeria = true
End If
Set objXMLHTTP = Nothing
End Function
%>


el error ke me sale es este
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server

Información técnica (para personal de soporte técnico)

• Tipo de error:
  msxml3.dll (0x80072EFD)
  A connection with the server could not be established
  /includes/verificar_c.asp, línea 12

[sqa212]

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

[lexus]

muchas gracias por la respuesta
pero retorna muchas cosas
habra forma de ke solo retorne
solo encontrado y no encontrado, o conectado y no conectado,
algo asi.?

yo a los permisos en el computador remoto al ke trato de entrar le pongo permisos de escritura, lectura, examinar.

[sqa212]

No lo he probado, pero quizas esto puede serte de utilidad.

http://www.brettb.com/HTTPWithPerlScriptAndASP.asp

[lexus]

gracias por la ayuda, pero como lo ke estoy verificando esta en una pagina asp no puedo hacer el llamado de esta funcion perl alli.

sera ke haciendo ping se puede saber si esta encendida o no y luego de si esta encendida verifique la existencia de la direccion?

[sqa212]

Lexus creo que de esta forma podrias hacerlo solo con asp:

<%
Function UrlPing(strHost)
PATH = Server.mappath(".")
FILENAME = "Lexus.txt"
TARGET = PATH&"/"&FILENAME
textobusqueda="perdidos ="
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
estalinea=file.ReadLine
PING_OUTPUT = PING_OUTPUT & (estalinea & "<br>")
Pos=InStr(estalinea,textobusqueda)
If InStr(estalinea,textobusqueda)>0 Then
response.Write(estalinea) &"<br>"
UrlPing=Right(estalinea,2)
End if
loop
file.Close()
End Function

strHost = "www.forosdelweb.com"
Resultado=UrlPing(strHost)
If len(Resultado)>0 Then
Response.Write("Puedo buscar la carpeta<br>")
Response.Write(Resultado)
else
Response.Write("No puedo buscar la carpeta<br>")
Response.Write(Resultado)
End if
%>

[lexus]

muchas gracias lo probare.