[megaloman]

Код:

@Echo Off
cls
	Set /A TWait=1
	Set "Addr=lenta.ru"

	Set "Log=Z:\Soft_Out\Ping.log"

	:Begin
		Set "Str="
		FOR /F "usebackq delims=" %%p IN (`ping -n 5 %Addr%`) DO Set "Str=%%p"
		>>"%Log%" Echo %Date% %Time% %Addr% %Str%
		>nul TimeOut /T %TWait%
	GoTo :Begin
Exit /B