Ping сохранение лога.

[last-77]

Добрый день!
дан скрипт

set YY=%date:~8,2%
set MM=%date:~3,2%
set DD=%date:~0,2%
set DATA=20%YY%-%MM%-%DD%
if not exist c:\PING\%DATA% ( mkdir c:\PING\%DATA%\ )
set HOUR=%TIME:~0,2%
set MINUTE=%TIME:~3,2%
set PINGSTART=%DATA%__%HOUR%-%MINUTE%
set /p IP=Pinguem :
set PINGFILE=%PINGSTART%__%IP%
set OUTPUT=c:\PING\%DATA%\%PINGFILE%.txt
@echo off & cls
echo Host: %IP%>%OUTPUT%
:pinging
call :cyrtime
<nul set /p strTemp=^%PINGTIME%>>%OUTPUT%
PING -n 1 ^%IP% | FIND ^"TTL=^">>%OUTPUT%
IF ERRORLEVEL 1 (SET BG=4F & echo Ping timed out.>>%OUTPUT% ) ELSE (SET BG=2F)
color %BG%
ping -n 2 -l 10 127.0.0.1 >nul
if %BG%==2F (
echo ICMP answer received at %PINGTIME% from %IP%
) ELSE (
echo ICMP answer not received at %PINGTIME% from %IP%
)
goto pinging
:cyrtime
set HR=%TIME:~0,2%
set MIN=%TIME:~3,2%
set SEC=%TIME:~6,2%
set PINGTIME=%DATA% - %HR%:%MIN%:%SEC%
exit /b

Нужно адаптировать для записи в лог только для не прошедших пингов.
Нормальные меня Мало интерисуют :haha:
Только чтобы сохранилась дата и время.
Спасибо.

[SendMessage]

Что-то вроде этого:
set YY=%date:~8,2%
set MM=%date:~3,2%
set DD=%date:~0,2%
set DATA=20%YY%-%MM%-%DD%
if not exist c:\PING\%DATA% ( mkdir c:\PING\%DATA%\ )
set HOUR=%TIME:~0,2%
set MINUTE=%TIME:~3,2%
set PINGSTART=%DATA%__%HOUR%-%MINUTE%
set /p IP=Pinguem :
set PINGFILE=%PINGSTART%__%IP%
set OUTPUT=c:\PING\%DATA%\%PINGFILE%.txt
@echo off & cls
set /a n=0
:pinging
call :cyrtime
PING -n 1 ^%IP% || (
call set /a n+=1
if %n% equ 0 echo Host: %IP%>%OUTPUT%
<nul set /p strTemp=^%PINGTIME%>>%OUTPUT%
SET BG=4F & echo Ping timed out.>>%OUTPUT%
) && (SET BG=2F)
color %BG%
ping -n 2 -l 10 127.0.0.1 >nul
if %BG%==2F (
echo ICMP answer received at %PINGTIME% from %IP%
) ELSE (
echo ICMP answer not received at %PINGTIME% from %IP%
)
goto pinging
:cyrtime
set HR=%TIME:~0,2%
set MIN=%TIME:~3,2%
set SEC=%TIME:~6,2%
set PINGTIME=%DATA% - %HR%:%MIN%:%SEC%
exit /b
Цветом выделен измененный кусок. Не особо тестировал, поэтому просто как наметка для переделки.