@echo off
echo wscript.echo dateadd("h",1,now)>a.vbs
:begin
if "%time:~6,2%"=="00" goto add
if "%time:~6,2%"=="20" goto add
if "%time:~6,2%"=="40" goto add
ping -n 2 127.1>nul
echo %time%
echo.
goto begin
:add
echo %date% %time%
for /f "tokens=1*" %%i in ('cscript/nologo a.vbs') do date %%i&time %%j
echo newtime %date% %time%
ping -n 18 127.1>nul
goto begin