adibox

@ricardo_br assim né?

@echo off
CLS

set terra=terra.com.br
set inexistente=xaswedf.com.br
set verde=call:color_ir 0A "                                                               verde"
set lilas=call:color_ir 0D "                                                               lilas"

echo.
echo.

echo                                                       Verificando sites Online fica
                                    %verde%
echo                                 e offline fica
                                    %lilas%

echo.

echo                                Verificando Site Terra 
ping %terra% | find "TTL=" >nul
if errorlevel 1 (
echo                             ==============================================
call :Color_ir 0D "                                              =Site %terra% - Esta Offline   ="
echo                                                 ==============================================   
echo.
echo.
) else (
echo                              =============================================
call :Color_ir 0A "                                              = Site %terra% - Esta Online  ="
echo                              =============================================
)

echo.
echo.

echo                                   Verificando site Qualquer
ping %inexistente% | find "TTL=" >nul
if errorlevel 1 (
echo                            =================================================
call :Color_ir 0D "                                            = Site %inexistente% - Esta Offline  ="
echo                                             =================================================   
echo.
echo.
) else (
echo                             =============================================
call :Color_ir 0A "                                            = Site %inexistente% - Esta Online  ="
echo                         =================================================
)

CALL :Color_ir 0B "                                                  Pressione qualquer tecla para sair.... -"
PAUSE > NUL
goto :EOF
:Color_ir
mkdir $temp1 || (Exit /b 2)
pushd $temp1 || (rmdir $temp1 & Exit /b 1)
for /f "delims=" %%. in ('
    "%ComsPec% /K Prompt $h$h <&1"
 ') do >o_o Echo %%.
Call:Tex_to %1 %2
popd
rmdir /S /Q $temp1
Endlocal & Exit /b 0
:Tex_to
>%2 (set/P=+) <&1
findstr /a:%1 + %2 con
type o_o
GOTO :EOF