Test Foro de elhacker.net SMF 2.1

Programación => Scripting => Mensaje iniciado por: EARM en 14 Enero 2015, 15:37 PM

Título: Realizar ping a una direccion
Publicado por: EARM en 14 Enero 2015, 15:37 PM
Buenas tardes muy buen aporte, tengo una duda respecto a los bath yo quiero hacer ping a una direccion ip y si esta no me responde que me abra un aplicativo cualquiera, estuve indagando y encontré uno que lo hace a una pagina web y abre el aplicativo, realice pruebas con este y solo me funcionaba si desconectaba el cable, lo probé asignandole una ip al codigo y desconectaba el equipo al cual le hacia la ip pero no me funcionaba el codigo era el siguiente:

Código (DOS) [Seleccionar]
@echo off
:inicio
if exist testigo.txt del testigo.txt
set ERRORLEVEL =
ping  www.google.com > testigo.txt
rem La solicitud de ping no pudo encontrar el host
echo Comprobando conectividad ...
@find /C "La solicitud de ping no pudo encontrar el host" testigo.txt > null
rem find /C "recibidos = 0" testigo.txt

rem si errorlevel = 0  ha encontrado recibidos=0 lo cual indica que no hay conectivida
if %ERRORLEVEL%==0  goto pita else goto continua

:continua
color 17
echo Si hay conectividad    
rem delay de 30min
@ping -n 2 127.0.0.1 > null
goto inicio
   
:pita
echo No hay conectividad
color cf
rem Ejecuta el programa .bat y abre el archivo robocopy.doc (las rutas pueden variar en cada caso)
start C:\Users\t.bat
rem delay de 5min
@ping -n 300 127.0.0.1 > null
goto inicio


quisiera saber que puedo hacer les agradezco su colaboracion.


Mod: Etiquetas GeSHi obligatorias.
Título: Re: Realizar ping a una direccion
Publicado por: Eleкtro en 14 Enero 2015, 22:37 PM
Hola

1) Está prohibido hacer doble post.

2) Utiliza las etiquetas para insertar código, porfavor, lee las normas de este subforo.

3) Prueba este código:

Código (dos) [Seleccionar]
@echo off

Set "url=www.google.com"
set "outFile=%temp%\Testigo.tmp"

:Main
Cls
Echo:[+] Haciendo ping a "%url%"...
(Ping.exe "%url%")>"%outFile%" && (
(Find.exe /I /C "recibidos = 0" "%outFile%")1>NUL && (
Goto :Error
) || (
Goto :Success
)
) || (
Goto :Error
)

:Error
Echo:[+] No hay conectividad
Color cf
:: Ejecuta el programa .bat y abre el archivo robocopy.doc (las rutas pueden variar en cada caso)
"C:\Users\t.bat"
:: Delay de 5min
(Ping.exe -n "300" "LocalHost")1>Nul
Goto :Main

:Success
Color 17
Echo:[+] Si hay conectividad    
Timeout /T 30
(Ping.exe -n "2" "LocalHost")1>Nul
Goto :Main


Saludos!
Título: Re: Realizar ping a una direccion
Publicado por: EARM en 15 Enero 2015, 00:07 AM
Amigo muchisimas gracias sos lo maximo realmente es la primera vez que uso un foro para postear algo tendre encuenta las normas ,te agradezco que te hayas tomado tiempo para realizar la respuesta muchisimas gracias