[Loran_rus]

Могу предложить

скрипт на VBS

Код:

On Error Resume Next 
Call Main
Private Sub Main
Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("Cmd /c ping -n 5 www.ya.ru")

Do While Not objExecObject.StdOut.AtEndOfStream
	strText = objExecObject.StdOut.ReadLine()
	If Instr(strText, "(100% ") > 0 Then
		objResult = objShell.Run ("Cmd /c Copy 111>Com3" , 0, True)
	End If
Loop
End Sub

WScript.Sleep 600000	'время = 10мин * 60сек * 1000
Call Main