Hola Lucas, proba con esto
DECLARE LONG IsDestinationReachable IN "SENSAPI.DLL" STRING lpszDestination,
LONG lpQOCInfo
_host = "MISERVER"
lnOK = IsDestinationReachable(_host , 0 )
IF lnOK = 0
MessageBox( "El Servidor no esta conectado a la red!" )
Else
MessageBox( "El Servidor EXISTE!" )
EndIf
Saludos
PabloC
De: [email protected] [mailto:[email protected]] En nombre de Lucas Fabbi
Enviado el: Sábado, 05 de Diciembre de 2009 19:10
Para: GUFA List Member
Asunto: [GUFA] : Saber si hay conexion al servidor
Buenas...
tengo un problema esta probando unos VPN y el sistema sale por VPN
poniendola IP del servidor
el tema es que no siempre anda bien
entonces la idea es de chequear que tenga conexion con el server...
intente con File('\\ServerMain\Sistemas\lg.bmp') o el Directory o el
MapNetworkDrive
el tema es que tarda muchisimo en devolverme el .f.
Alguna idea?
Gracias
Lucas Ramiro Fabbi
Consultor - Analista Programador
(011) 15 - 5957- 2018
http://www.calebsistemas.com.ar
_____
Encontra las mejores recetas con Yahoo! Cocina.
http://ar.mujer.yahoo.com/cocina/
