[Foreigner]

1. Где находится батник?
2. Что выводит %path% (из консоли):

Код:

for %i in ("%path:;=";"%") do @echo %i

3. Есть ли c:\windows\system32\ping.exe?
4. Есть ли другие исполняемые файлы (echo %pathext%) с именем ping.*, которые находятся в любом из каталогов %path%

[Iska]

The_Immortal, я бы для начала убрал все перенаправления в файл, открыл консоль, запустил пакетный файл и посмотрел на его вывод.

[Foreigner]

Еще можно поискать 1.txt:

Код:

dir /b /s /a C:\1.txt

Это конечно займет некоторое время.

[The_Immortal]

Господа, я прошу простить меня. В корне диска С лежала скаченная самопальная утилита ping.exe, которая и запускалась при выполнении скрипта... Запускалась она в полном фоне, поэтому я её и не видел

Foreigner, в вышеуказанном скрипте пинг происходит 4 раза (стандартно), после этого результат записывается в файл и скрипт завершается, а нужна бесконечность.
Я попробовал так:

Код:

@echo off
setlocal
1>nul chcp 866

for /f "tokens=*" %%i in ('"ping ya.ru -t | findstr "TTL=""') do call:1 %%i
goto:eof

:1
1>nul chcp 1251
1>>C:\1.txt echo %date% %time%: %*
1>nul chcp 866

Но так работать не захотело.

[Foreigner]

Но так работать не захотело. »

Если пинг бесконечный, то лучше сделать много пингов:

Код:

@echo off
setlocal
1>nul chcp 866


:1
1>nul timeout /t 1
for /l %%i in (0,1,9) do (

	for /f "tokens=*" %%j in ('"ping -n 1 ya.ru | findstr "TTL=""') do (

		if %%i geq 9 goto:1
		call:2 %%j

))

goto:eof

:2
1>nul chcp 1251
1>>1.txt echo %date% %time%: %*
1>nul chcp 866

timeout -- чтобы не сильно загружать систему
Выйти из батника Ctrl+C

[Duber123]

Всем привет.
Очень помогло данное решение.
Но, если пинговать IP-адрес или имя компьютера, то файл не создаётся.
Подскажите как решить эту проблему?

UPD: оказывается, если пингуемый хост недоступен, то лог не пишется.
Как можно доработать код, чтобы в файл писалось, что пинг не прошёл?

[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

[Duber123]

Это немного не тот формат вывода, который бы хотелось получить + крякозыбры опять.

Вот, сделал под свои нужды:

Код:

@echo off
:ping
for /f "tokens=* skip=2" %%a in ('ping ya.ru -n 1 -4') do (
    echo %date% %time:~0,8% %%a>>c:\users\%username%\desktop\pingtime.txt
    timeout 1 >nul
    goto ping)

Но как к этому прикрутить кодировку из примера Foreigner, чтобы в блокноте кириллица отображалась?

[megaloman]

Duber123, Если применить способ Foreigner к Вашему решению, то

Код:

@echo off
>nul chcp 866
:Begin
	For /f "tokens=* skip=2" %%a in ('ping lenta.ru -n 1') Do Call :Out "%%date%% %%time:~0,8%% %%a"
	>nul timeout 3
GoTo :Begin
:Out
	>nul Chcp 1251
	>>"Z:\Soft_Out\ping1251.log" Echo %~1
	>nul chcp 866
Exit /B

Если к моему, то

Код:

@Echo Off
cls
>nul chcp 866
	Set /A TWait=1
	Set "Addr=lenta.ru"
	Set "Log=Z:\Soft_Out\MyPing1251.log"

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

Это немного не тот формат вывода »

По моему скромному мнению Ваш файл трудно читаем, у меня же выдаётся только итоговая строка, что удобнее для просмотра и анализа.
Общая проблема: окно CMD будет висеть черным пятном. Можно, конечно, применить VBS, чтобы его скрыть, а можно полностью переделать в VBS

Код:

Dim Address: Address = "lenta.ru"
Dim LogFile: LogFile = "Z:\Soft_Out\PingVbs.log"
Dim WaitSek: WaitSek = 60

Dim Msg
With CreateObject("Scripting.FileSystemObject").OpenTextFile(LogFile, 8, True)
    Do
        With GetObject("winmgmts:").Get("Win32_PingStatus.Address='" + Address + "'")
            Msg = CStr(Now) + "  " + .Address + "  " + .ProtocolAddress + "  "
            If IsNull(.ResponseTime) Then
                Msg = Msg + "           ResponseTime= нет ответа" + "  "
            Else
                Msg = Msg + "ResponseTime=" + CStr(.ResponseTime) + "  "
                Msg = Msg + "TTL= " + CStr(.ResponseTimeToLive)
            End If
        End With
        .WriteLine Msg
        						'MsgBox Msg
        WScript.Sleep (WaitSek * 1000)
    Loop
End With

Убить скрипт можно из диспетчера задач (процесс WScript.exe)

[Duber123]

По моему скромному мнению Ваш файл трудно читаем.

Да, согласен, но так стало после добавления вашего кода.

Изначально же мой файл содержит классический вывод команды Ping + метка времени (открыт с помощью NotePad++):

Скрытый текст

25.07.2022 9:43:39 Ответ от 87.250.250.242: число байт=32 время=6мс TTL=248
25.07.2022 9:43:40 Ответ от 87.250.250.242: число байт=32 время=6мс TTL=248
25.07.2022 9:43:41 Ответ от 87.250.250.242: число байт=32 время=6мс TTL=248
25.07.2022 9:43:42 Ответ от 87.250.250.242: число байт=32 время=6мс TTL=248
25.07.2022 9:43:43 Ответ от 87.250.250.242: число байт=32 время=6мс TTL=248

Т.к. нужно решение именно на BAT-файле, возможно привести выводимую информацию именно к такому виду?

С окном консоли действительно есть такой эффект, но для меня не критично, т.к. пинговать приходиться редко и только когда нужно выявить время аварийного отключения хоста.
Я просто его сворачиваю и таким образом иконка на панели задач служит напоминанием, что процесс запущен.