Нужна прога которая бы проверяла пинги и если задержка > 500
Нужно пищать через спикер.
Существуют такие?
....
Возможно напишу сам для 1с, если скажете пропинговать в 1с и как получить задержку )

а кто тебе помешает пингануть с выводом результата в файл и парсить потом этот файл?

делал подобную фигню для базы локальной сети: сканирует сеть, всё пишет в файл, из файла в 1с

из vbs тоже пинговать мона через ком объект какой-то

(1) еще и винт загрузить, нет уж
(2) еще и винт загрузить, нет уж
(3) а получить как отклик?

ну там результат пинга возвращается, но каким объектом не помню

v8: пропинговать комп через обработку

Option Explicit

Const NETWORK = "192.168.0."

Dim i
Dim strAddress

For i = 1 To 20
  strAddress = NETWORK & i
  WScript.Echo strAddress & " - " & fnPing( strAddress )
Next

'-------------------------------------------------------------------------------
Function fnPing( strHost )
Dim objPing, objRetStatus
Set objPing = GetObject( "winmgmts:{impersonationLevel=impersonate}" ).ExecQuery _
  ( "select * from Win32_PingStatus where address = '" & strHost & "'" )

For Each objRetStatus in objPing
  If IsNull( objRetStatus.StatusCode ) or objRetStatus.StatusCode <> 0 Then
     fnPing = -1
  Else
     fnPing = objRetStatus.ResponseTime
  End If
Next
End Function

(0) http://www.google.kz/#sclient=psy-ab&hl=ru&source=hp&q=friendly+pinger+5.0+crack&pbx=1&oq=friendly+pinger+&aq=2&aqi=g4&aql=&gs_sm=c&gs_upl=4291l4414l2l7363l2l2l0l0l0l1l805l1173l3-1.6-1l2l0&bav=on.2,or.r_gc.r_pw.,cf.osb&fp=b088cdc0c81da066&biw=1072&bih=896

(6) Бегло прочитал, там вроде не нашел: objRetStatus.ResponseTime

какую задержку ?

(10) месячных же

(6) про задержки есть, но надо ВК
(7) не понятно как это заюзать

так пойдет ?

set ttl=10
set host=da.ru
:next
ping -n 1 -i %ttl% %host% > nul 2>&1 || echo 
goto next
exit /b

(12) Это Батник?
если да, то оч клево
надо еще сделать чтобы пикал

(14) он и будет пикать
последний символ в эхе вводищь так alt+7 (7 на нумерной клавиатуре)

ну и в начале
echo off

(15)
а какой командой он "пикает" ?

beep

(18) вот ее то я и не вижу в (13)

точнее так как то

@echo off
@(
@echo n %temp%\echo.txt
@findstr /b /v "@" "%~0"
@echo. ) | debug > nul 2>&1
@set ttl=10
@set host=da.ru
@:next
@ping -n 1 -i %ttl% %host% | find /i "ttl" > nul && type %temp%\echo.txt
@goto next
@exit /b
f 100 100 7
r cx
1
w
q

или нужно не это ?
не ттл, а если не пингуется дольше полсекунды - выдать пик ?