Script con barra de progreso y en un cmd.....

Buenos os adjunto un script que ha mi particularmente me ha sido util y lo posteo aquí porque a parte de postearlo en el foro de elhacker creo que es lo bastante interesante como para postearlo también aquí.
---------- INICIO DEL SCRIPT -- CORTA A PARTIR DE ESTA LÍNEA ---------
:: Creado por Francisco Palenzuela Luque
:: 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 fué 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

---------- FIN DEL SCRIPT -- CORTA ANTES DE ESTA LÍNEA ---------

El kit de la cuestión esta en lo que he puesto en negrita. Lo encontre en un ejemplo en las news de microsoft y en ocasiones es útil.

Bueno ante la duda ya sabéis donde encontrarme.

PD: Utilizad el edit del DOS para editar y veréis el porqué de los los símbolos raros del script.

Salu2 a todos.