Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Лог пинга со временем

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

Infected Switch



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Банально скидываю все в лог таким образом: ping server1 -t > log.txt
Можно как-то писать с указанием времени? Необходимо узнать время когда происходит разрыв связи.

Всего записей: 471 | Зарегистр. 25-08-2006 | Отправлено: 10:34 11-12-2007
veryom



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
time /t

----------
Как обойти административные ограничения

Всего записей: 1242 | Зарегистр. 24-03-2006 | Отправлено: 10:43 11-12-2007
Infected Switch



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
time /t

не пашет

Всего записей: 471 | Зарегистр. 25-08-2006 | Отправлено: 10:52 11-12-2007
veryom



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
у меня пашет. выводит текущее локальное время, типа: 11:21. еще есть date /t

----------
Как обойти административные ограничения

Всего записей: 1242 | Зарегистр. 24-03-2006 | Отправлено: 11:23 11-12-2007
Vby



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
veryom

Цитата:
time /t

используется для смены текущего времени
Infected Switch
Попробуй так:

Код:
On Error Resume Next
 
Const ForAppending = 8
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("d:\ping.txt", ForAppending, True)
 
Do
 
machine = "ya.ru"  
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._  
ExecQuery("select * from Win32_PingStatus where address = '"_  
& machine & "'")  
 
For Each objStatus in objPing  
 
 
 
If objStatus.StatusCode=0 Then  
 status = "OK"
else
 status = "timeout"
End If  
 
 
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")
 
time = objItem.DaylightMinute
 
 
For Each objService in colServices    
    objTextFile.WriteLine(time & " " & objStatus.Address & " " & Status & " " & objStatus.ResponseTime)
Next
 
 
Next
 
 
WScript.sleep 5000
 
 
loop
 
objTextFile.Close
 
 

Всего записей: 783 | Зарегистр. 16-09-2004 | Отправлено: 12:08 11-12-2007
veryom



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vby

Цитата:
используется для смены текущего времени

Да ну?! Читаем вывод time /?

----------
Как обойти административные ограничения

Всего записей: 1242 | Зарегистр. 24-03-2006 | Отправлено: 12:14 11-12-2007
Vby



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
veryom
Ну если с /T тогда все норма )
Чего-то забыл про /T, по памяти как-то давно пользовался для смены времени

Всего записей: 783 | Зарегистр. 16-09-2004 | Отправлено: 12:27 11-12-2007 | Исправлено: Vby, 12:29 11-12-2007
Infected Switch



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
у меня пашет. выводит текущее локальное время, типа: 11:21. еще есть date /t
 

Приведи пжста полностью команду, вместе с пингом.
 
Добавлено:
Vby
Ламерский вопрос: как этот скрипт остановить-то?

Всего записей: 471 | Зарегистр. 25-08-2006 | Отправлено: 12:52 11-12-2007
veryom



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Infected Switch

Цитата:
Приведи пжста полностью команду, вместе с пингом.

А в чем проблема-то? Ну вот вместе с пингом:
Код:
time /t >> 1.txt & ping -n 1 xxx.yyy.zzz.www >> 1.txt
. Правда лог некрасивым получится. Для красоты нужны жертвы: написание более сложного батника. Или ты хочешь одной строчкой?

----------
Как обойти административные ограничения

Всего записей: 1242 | Зарегистр. 24-03-2006 | Отправлено: 13:04 11-12-2007
Infected Switch



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Цитата:
Или ты хочешь одной строчкой?

угу

Всего записей: 471 | Зарегистр. 25-08-2006 | Отправлено: 13:10 11-12-2007
SPV_Ed



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Infected Switch
Погугли alive.exe

Всего записей: 474 | Зарегистр. 20-06-2006 | Отправлено: 13:31 11-12-2007
Infected Switch



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Блин, пока vbs скрипт работает мне даже батник не проверить =\
Как его прибить!?

Всего записей: 471 | Зарегистр. 25-08-2006 | Отправлено: 13:42 11-12-2007
Vby



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Infected Switch

Цитата:
Ламерский вопрос: как этот скрипт остановить-то?  

прибить процес wscript.exe

Всего записей: 783 | Зарегистр. 16-09-2004 | Отправлено: 15:17 11-12-2007
webresurs



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
взято с форума:
Если пропадает пинг...

Цитата:
....тут в 2й и 3й строках - задаётся файл, куда писать лог, и ай-пи, который надо пинговать (двойные кавычки должны оставаться)
Работа файла (запись пингов в лог) будет вестись до закрытия окна работы бат-файла, или до выключения/перезагрузки компа.
Может, кому-то это пригодится...

 

Код:
 
echo off
set filelogname="outlog.txt"
set iptoping="172.24.199.254"
 
date /t >%filelogname%
 
:loop
ping %iptoping% -n 1 >%TEMP%\~out1.txt
 
echo.|time >%TEMP%\~out2.txt
 
for /f "tokens=1,2,3" %%a in (%TEMP%\~out2.txt) do if -%%a==-Текущее (echo %%c>%TEMP%\~out3.txt)
del /q %TEMP%\~out2.txt
 
rem создадим переменную времени
for /f "tokens=1 delims=," %%a in (%TEMP%\~out3.txt) do set timedata=%%a
 
for /f "tokens=1,2,3,4,5,6,7" %%a in (%TEMP%\~out1.txt) do if -%%a==-Ответ (echo %%a %%b %%c %%d %%e %%f %%g>%TEMP%\~out3.txt
)else if -%%a==-Превышен (echo %%a %%b %%c %%d %%e>%TEMP%\~out3.txt)
 
rem создадим переменную пинга
for /f "tokens=*" %%a in (%TEMP%\~out3.txt) do set pingdata=%%a
 
del /q %TEMP%\~out3.txt
del /q %TEMP%\~out1.txt
 
echo %timedata% %pingdata% >>%filelogname%
 
goto loop
 

Всего записей: 288 | Зарегистр. 23-01-2007 | Отправлено: 06:25 16-07-2014
leodovinchi

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Google мне рассказал....
https://setiwik.ru/ping-записью-в-файл/
 
ссылку обновил

Всего записей: 1 | Зарегистр. 28-04-2017 | Отправлено: 08:43 14-07-2017 | Исправлено: leodovinchi, 10:21 04-06-2020
poofik



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
for /l %i in (0,0,1) do @cmd /c "echo.|set/p=%TIME:~0,8^%" & ping -n 1 google.com | find "TTL" & ping -n 2 localhost > nul

Всего записей: 111 | Зарегистр. 23-08-2006 | Отправлено: 10:57 08-04-2020
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Лог пинга со временем


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

LiteCoin: LgY72v35StJhV2xbt8CpxbQ9gFY6jwZ67r

Рейтинг.ru