Foros del Web » Programando para Internet » ASP Clásico »

funcion existe carpeta remota

Estas en el tema de funcion existe carpeta remota en el foro de ASP Clásico en Foros del Web. 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? ...
  #1 (permalink)  
Antiguo 10/07/2007, 09:27
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
De acuerdo funcion existe carpeta remota

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.
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #2 (permalink)  
Antiguo 10/07/2007, 18:00
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: funcion existe carpeta remota

eso no puede intentarse con AJAX
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #3 (permalink)  
Antiguo 10/07/2007, 19:15
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Re: funcion existe carpeta remota

Cita:
Iniciado por Shiryu_Libra Ver Mensaje
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
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #4 (permalink)  
Antiguo 10/07/2007, 19:21
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Re: funcion existe carpeta remota

Con AJAX?
Creo que con el objeto Microsoft.XMLHTTP podría hacerse.
  #5 (permalink)  
Antiguo 10/07/2007, 19:23
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Re: funcion existe carpeta remota

Cita:
Iniciado por Al Zuwaga Ver Mensaje
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!
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #6 (permalink)  
Antiguo 10/07/2007, 19:31
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Re: funcion existe carpeta remota

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
  #7 (permalink)  
Antiguo 10/07/2007, 19:41
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Re: funcion existe carpeta remota

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
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #8 (permalink)  
Antiguo 10/07/2007, 22:10
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: funcion existe carpeta remota

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??
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #9 (permalink)  
Antiguo 11/07/2007, 16:53
 
Fecha de Ingreso: mayo-2003
Mensajes: 866
Antigüedad: 21 años, 1 mes
Puntos: 0
Re: funcion existe carpeta remota

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()
%>
  #10 (permalink)  
Antiguo 11/07/2007, 16:56
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: funcion existe carpeta remota

buena funcion SQA, esperemos que le sirva a LEXUS

__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #11 (permalink)  
Antiguo 11/07/2007, 17:46
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Re: funcion existe carpeta remota

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?
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #12 (permalink)  
Antiguo 11/07/2007, 18:20
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: funcion existe carpeta remota

y que se tiene que hacer para prevenir ese tipo de consultas Sensei en Artes Ocultas???
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #13 (permalink)  
Antiguo 11/07/2007, 18:30
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Re: funcion existe carpeta remota

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
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #14 (permalink)  
Antiguo 12/07/2007, 08:52
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
Re: funcion existe carpeta remota

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..
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #15 (permalink)  
Antiguo 12/07/2007, 09:31
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Re: funcion existe carpeta remota

Cita:
Iniciado por lexus Ver Mensaje
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.
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #16 (permalink)  
Antiguo 12/07/2007, 10:08
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Re: funcion existe carpeta remota

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:

Cita:
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?
__________________
...___...
  #17 (permalink)  
Antiguo 12/07/2007, 11:58
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Re: funcion existe carpeta remota

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]
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #18 (permalink)  
Antiguo 12/07/2007, 12:20
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
Re: funcion existe carpeta remota

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.
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #19 (permalink)  
Antiguo 12/07/2007, 13:16
 
Fecha de Ingreso: mayo-2003
Mensajes: 866
Antigüedad: 21 años, 1 mes
Puntos: 0
Re: funcion existe carpeta remota

¿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?
  #20 (permalink)  
Antiguo 12/07/2007, 16:16
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
Re: funcion existe carpeta remota

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.
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #21 (permalink)  
Antiguo 12/07/2007, 18:08
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Re: funcion existe carpeta remota

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?
__________________
...___...
  #22 (permalink)  
Antiguo 12/07/2007, 18:12
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
Re: funcion existe carpeta remota

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.
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #23 (permalink)  
Antiguo 14/07/2007, 09:36
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
Re: funcion existe carpeta remota

aguien sabe como solucionar mi problema?
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #24 (permalink)  
Antiguo 27/07/2007, 06:34
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
Re: funcion existe carpeta remota

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
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com

Última edición por lexus; 27/07/2007 a las 06:41
  #25 (permalink)  
Antiguo 27/07/2007, 12:12
 
Fecha de Ingreso: mayo-2003
Mensajes: 866
Antigüedad: 21 años, 1 mes
Puntos: 0
Re: funcion existe carpeta remota

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
  #26 (permalink)  
Antiguo 27/07/2007, 19:28
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
Re: funcion existe carpeta remota

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.
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #27 (permalink)  
Antiguo 28/07/2007, 10:04
 
Fecha de Ingreso: mayo-2003
Mensajes: 866
Antigüedad: 21 años, 1 mes
Puntos: 0
Re: funcion existe carpeta remota

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

http://www.brettb.com/HTTPWithPerlScriptAndASP.asp
  #28 (permalink)  
Antiguo 30/07/2007, 06:16
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
Re: funcion existe carpeta remota

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?
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
  #29 (permalink)  
Antiguo 30/07/2007, 12:09
 
Fecha de Ingreso: mayo-2003
Mensajes: 866
Antigüedad: 21 años, 1 mes
Puntos: 0
Re: funcion existe carpeta remota

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
%>
  #30 (permalink)  
Antiguo 30/07/2007, 16:20
Avatar de lexus  
Fecha de Ingreso: enero-2002
Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 22 años, 5 meses
Puntos: 4
Re: funcion existe carpeta remota

muchas gracias lo probare.
__________________
Control de Visitantes, Control de Accesos, Minutas digitales, Manejo de Correspondencia
http://www.controldevisitantes.com
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:29.