Bueno hay un truco para la barra de progreso. Os lo muestro con un ejemplo de un ping.
:: Creado por Pantocrator (fleky)
:: Para el foro
:: Descripción
:: Hace un ping a todas las direcciones ip en el fichero lista.txt y crea un log
:: con la fecha y hora en que se realizó el ping incluyendo unicamente si el
:: ping fue erroneo.
@echo off
color 17
mode con lines=10 cols=59
FOR /F "tokens=1 delims=/ " %%a IN ('DATE /T') DO set diasemana=%%a
FOR /F "tokens=2 delims=/ " %%b IN ('DATE /T') DO set dia=%%b
FOR /F "tokens=3 delims=/ " %%c IN ('DATE /T') DO set mes=%%c
FOR /F "tokens=4 delims=/ " %%d IN ('DATE /T') DO set any=%%d
set fichero=%dia%%mes%%any%
if exist %fichero% (
goto pings
) else (
echo --[Hora]-- [Direccion IP] [Host] --[Mensaje]-->> %fichero%
echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ>> %fichero% )
:pings
cls
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ Procesando Pings de servidores ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo 1234567890123456789
echo ÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ
for /f "tokens=1,2 delims=|" %%p in (lista.txt) do (echo/|set/p ^=^Û&@ping %%p -n 2 | find "TTL">nul || @echo %time% -[ %%p ] - [ %%q ] - [ no responde ] >> %fichero% )
:fin
exit
Os he puesto en negrita el kit de la cuestión. Este truco lo saque de las news de microsoft.
saludos y espero que os sirva.
A Por cierto os aconsejo que editéis el script con el edit del dos.
:: Creado por Pantocrator (fleky)
:: Para el foro
:: Descripción
:: Hace un ping a todas las direcciones ip en el fichero lista.txt y crea un log
:: con la fecha y hora en que se realizó el ping incluyendo unicamente si el
:: ping fue erroneo.
@echo off
color 17
mode con lines=10 cols=59
FOR /F "tokens=1 delims=/ " %%a IN ('DATE /T') DO set diasemana=%%a
FOR /F "tokens=2 delims=/ " %%b IN ('DATE /T') DO set dia=%%b
FOR /F "tokens=3 delims=/ " %%c IN ('DATE /T') DO set mes=%%c
FOR /F "tokens=4 delims=/ " %%d IN ('DATE /T') DO set any=%%d
set fichero=%dia%%mes%%any%
if exist %fichero% (
goto pings
) else (
echo --[Hora]-- [Direccion IP] [Host] --[Mensaje]-->> %fichero%
echo ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ>> %fichero% )
:pings
cls
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ Procesando Pings de servidores ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo 1234567890123456789
echo ÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂÂ
for /f "tokens=1,2 delims=|" %%p in (lista.txt) do (echo/|set/p ^=^Û&@ping %%p -n 2 | find "TTL">nul || @echo %time% -[ %%p ] - [ %%q ] - [ no responde ] >> %fichero% )
:fin
exit
Os he puesto en negrita el kit de la cuestión. Este truco lo saque de las news de microsoft.
saludos y espero que os sirva.
A Por cierto os aconsejo que editéis el script con el edit del dos.