PING desde VFP

[Oscar Calderon Fuentes]

Hola a todos,

 

Necesito generar una pequeña aplicación que haga PING a un servidor, o en su defecto que chequee continuamente si el servidor se encuentra activo.
El objetivo es que si el servidor se cae, envíe un mail a quienes correspondan para la solución del tema.

 

¿alguien conoce un artículo, o algo por el estilo, que me pueda orientar en el tema?

 

Gracias,

--

Oscar Calderón Fuentes

Santiago - Chile

 

[Leandro Gurruchaga]

Wasitup.com

El domingo 19 de junio de 2011, Oscar Calderon Fuentes
<ocald...@gmail.com> escribió:
> Hola a todos, Necesito generar una pequeña aplicación que haga PING a un servidor, o en su defecto que chequee continuamente si el servidor se encuentra activo.El objetivo es que si el servidor se cae, envíe un mail a quienes correspondan para la solución del tema.

>  ¿alguien conoce un artículo, o algo por el estilo, que me pueda orientar en el tema? Gracias,
> --
> Oscar Calderón Fuentes
>
> Santiago - Chile
>
>

--

P Por favor, piense en la conservación del medio ambiente antes de ordenar
la impresión de este e-mail.

[Oscar Calderon Fuentes]

¿Este sitio monitorea tu WebPage?

[Leandro Gurruchaga]

Permanentemente, y te envía un mail si no carga el site

[Jorge Javier Gutierrez]

En la empresa donde trabajaba utilizaban el WhatsUp, muy bueno y simple: www.whatsupgold.com

Saludos

 

[PabloRoca]

Y que tal haciendolo el Fox?

En PortalFox tienes un artículo que te explica como hacerlo. Le pones
un timer, controlas los resultados (socket state) y listo.

http://www.portalfox.com/article.php?sid=441

Saludos,

Pablo Roca
Sysop de PortalFox
España


On 20 jun, 04:24, Jorge Javier Gutierrez

[Oscar Calderon Fuentes]

Pablo,

 

Ya revisé este articulo, lo probé. Pero me retorna siempre .T., aunque la IP se encuentre no conectada o no ocupada en la red.

 

Saludos,

[PabloRoca]

Pues que raro, a mi me funciona perfectamente.

Hiciste lo mismo que dice e artículo? probaste a ponerlo en un form?

Saliudos,

Pablo Roca

On 20 jun, 14:33, Oscar Calderon Fuentes <ocalder...@gmail.com> wrote:
> Pablo,
>
> Ya revisé este articulo, lo probé. Pero me retorna siempre .T., aunque la IP
> se encuentre no conectada o no ocupada en la red.
>
> Saludos,
>

> El 20 de junio de 2011 06:37, PabloRoca <pabloro...@gmail.com> escribió:
>
>
>
>
>
> > Y que tal haciendolo el Fox?
>
> > En PortalFox tienes un artículo que te explica como hacerlo. Le pones
> > un timer, controlas los resultados (socket state) y listo.
>
> >http://www.portalfox.com/article.php?sid=441
>
> > Saludos,
>
> > Pablo Roca
> > Sysop de PortalFox
> > España
>
> > On 20 jun, 04:24, Jorge Javier Gutierrez
> > <jorgejaviergutier...@gmail.com> wrote:
> > > En la empresa donde trabajaba utilizaban el WhatsUp, muy bueno y simple:
> >www.whatsupgold.com
>
> > > Saludos
>
> --

> *Oscar Calderón Fuentes*
> *Santiago - Chile*

[J. Enrique Ramos Menchaca]

Yo tengo un pequeño programita sin terminar que utiliza un control
activex para realizar el ping, si desean se los envío para que lo
revisen. Pero tendría que ser por correo electrónico.

[Hugo C.]

este codigo te manda el ping a un cursor
tal vez te sirva

LOCAL lcCmd, lcArchivo
lcCmd = "ping 192.168.2.16 > c:\temp\x.txt"
lcArchivo = GetEnv("TEMP") + "" + Sys(2015) + ".bat"
StrToFile(lcCmd , lcArchivo)
oShell = CREATEOBJECT("WScript.Shell")
oShell.Run(lcArchivo, 0, 1)
CREATE CURSOR curPing (resultado c(60))
SELECT curPing
APPEND FROM c:\temp\x.txt SDF
BROW

Saludos.

On 19 jun, 19:31, Oscar Calderon Fuentes <ocalder...@gmail.com> wrote:
> Hola a todos,
>
> Necesito generar una pequeña aplicación que haga PING a un servidor, o en su
> defecto que chequee continuamente si el servidor se encuentra activo.
> El objetivo es que si el servidor se cae, envíe un mail a quienes
> correspondan para la solución del tema.
>
> ¿alguien conoce un artículo, o algo por el estilo, que me pueda orientar en
> el tema?
>
> Gracias,
>
> --

[J. Enrique Ramos Menchaca]

Ya me acorde donde obtuve el activex para hacer lo del ping es:

OstroSoft ICMP Component download 1.0
http://www.dodownload.com/download/ostrosoft+icmp+component.html

Agrego el ejemplo de lo que trabaje:
**** aqui comienza el código
ON ERROR DO errHandler WITH ERROR()
CREATE CURSOR csrRespuesta (linea c(254))

i = 0

oPing = CREATEOBJECT("OSICMP.ping")
txtIP = "tlaloc2.phibred.com"
WITH oPing
FOR i = 0 TO 3
.Send(txtIP,2000)
IF i = 0 THEN
lclinea = "Pinging " + ALLTRIM(.IP) + " with " +
ALLTRIM(STR(.PacketSize)) + " bytes of data:"
INSERT INTO csrRespuesta VALUES(lclinea)
ENDIF

lclinea = "Reply from " + ALLTRIM(.IP) + " bytes = " +
ALLTRIM(STR(.PacketSize)) + " time=" + ALLTRIM(STR(.RoundTripTime)) +
" ms TTL " + ALLTRIM(STR(.TTL)) + " Status "+ .status
INSERT INTO csrRespuesta VALUES(lclinea)
? csrRespuesta.linea
.Sleep(1000)
ENDFOR
ENDWITH

INSERT INTO csrRespuesta VALUES("Ping Complete")
RELEASE oPing


PROCEDURE errHandler

PARAMETER merror

* CLEAR

* ? 'Error number: ' + LTRIM(STR(merror))

ENDPROC
***** aqui termina
Espero les sea de utilidad, actualmente ya no le movi, por eso quedo a
medio terminar. Es una dll que permite hacer el ping y el tracert

Saludos.

On 20 jun, 10:46, "J. Enrique Ramos Menchaca" <jeram...@gmail.com>
wrote:

[Desarrollos EfiMax]

Revisa mejor servicios

 

http://www.hyperspin.com

http://monitoreointernet.com/

 

son muy económicos y moniteran desde varios lugares.

 

Que estés bien.
=====================================
Desarrollos EfiMax
Ing. Carlos Omar Figueroa López
http://www.efimax.com.mx
Hermosillo,Sonora
=====================================

[Oscar Calderon Fuentes]

El problema es que nuestra institución, en lo referente a seguridad informática, se rige bajo la ley SOX. Por lo tanto no puedo, por seguridad y protocolo, colocar la IP de uno de nuestros servidores en una págica externa no controloda. Es por eso que necesito, si o si, generar una aplicación interna.

 

Saludos,

[J. Enrique Ramos Menchaca]

No se si te sirvio la información enviada, ya que a mi me ha
funcionado sin problemas.

On 21 jun, 11:23, Oscar Calderon Fuentes <ocalder...@gmail.com> wrote:
> El problema es que nuestra institución, en lo referente a seguridad
> informática, se rige bajo la ley SOX. Por lo tanto no puedo, por seguridad y
> protocolo, colocar la IP de uno de nuestros servidores en una págica externa
> no controloda. Es por eso que necesito, si o si, generar una aplicación
> interna.
>
> Saludos,
>
> El 19 de junio de 2011 21:40, Desarrollos EfiMax

> <webmas...@efimax.com.mx>escribió:
>
>
>
>
>
>
>
>
>
> > **

> > Revisa mejor servicios
>
> >http://www.hyperspin.com
> >http://monitoreointernet.com/
>
> > son muy económicos y moniteran desde varios lugares.
>
> > Que estés bien.
> > =====================================
> > Desarrollos EfiMax
> > Ing. Carlos Omar Figueroa López
> >http://www.efimax.com.mx
> > Hermosillo,Sonora
> > =====================================
>
> > ----- Original Message -----

> > *From:* Oscar Calderon Fuentes <ocalder...@gmail.com>
> > *To:* publice...@googlegroups.com
> > *Sent:* Sunday, June 19, 2011 6:31 PM
> > *Subject:* [vfp] PING desde VFP

>
> > Hola a todos,
>
> > Necesito generar una pequeña aplicación que haga PING a un servidor, o en
> > su defecto que chequee continuamente si el servidor se encuentra activo.
> > El objetivo es que si el servidor se cae, envíe un mail a quienes
> > correspondan para la solución del tema.
>
> > ¿alguien conoce un artículo, o algo por el estilo, que me pueda orientar en
> > el tema?
>
> > Gracias,
>
> > --

[Oscar Calderon Fuentes]

No me sirve, por temas de seguridad.

 

Pero voy a generar una clase en .NET (DLL). Ahi tengo las herramientas para el tema.

 

Gracias,

[J. Enrique Ramos Menchaca]

El que yo envie no es una pagina de internet sino una dll que realiza
el ping.

On 21 jun, 22:30, Oscar Calderon Fuentes <ocalder...@gmail.com> wrote:
> No me sirve, por temas de seguridad.
>
> Pero voy a generar una clase en .NET (DLL). Ahi tengo las herramientas para
> el tema.
>
> Gracias,
>
> El 21 de junio de 2011 21:10, J. Enrique Ramos Menchaca

> <jeram...@gmail.com>escribió:

[Jorge Carazzo]

Chicos, yo uso esta funcion bajada de portal fox y, si bien tuve que
cambiar algunas cositas, anda excelentemente.

*********************hace un ping a la direccion especificada y
devuelve .t. o .f. si estan activas o no
FUNCTION hacerping ( tchost, tnpuerto )
LOCAL loWS, llret, lnini
loWS = CREATEOBJECT("MSWinSock.Winsock")
loWS.Connect(tchost, tnpuerto)
lnini = SECONDS()
DO WHILE (SECONDS()-lnini) < 2
ENDDO
IF loWS.state = 7
llret = .T.
ENDIF
loWS.Close()
RELEASE loWS
RETURN llret
ENDFUNC


Si el ping fue satisfactorio, devuelve .t., sino devuelve .f. y la
llamo de la siguiente manera:

hacerping(dns_solo,puerto)

Ejem1: (verifico si el ftp de una maquina de la red, esta activo)
dns_solo=192.168.1.100
puerto =21

Ejem2: (verifico si el servidor de grabacion de cctv de un cliente,
esta en linea)
dns_solo=clientexxx.dyndns-remote.com
puerto =90

Un saludo a todos.