Проверка серверов на доступность через интернет

[bagz]

Версия AutoIt: 3.

Описание: Необходимо проверять несколько серверов и видеорегистраторов (видеонаблюдение) на доступность. Тоесть пинговать по домену и порту.

Примечания:

While 1
	ping("google.com")
		if @error Then
			MsgBox('0', 'Ошибка подключение к интернету!', 'подключи инет!!!', '15')
			Sleep('600000')
		Else
			$i=1
			While $i <= 10
				TCPStartup()
				$ip = TCPNameToIP( "relaks.dyndns.info" )
				$ip &= ':88'				; переводим из домена в IP и добовляем порт, так как по домену он почему то не работал.
			
				$sIp = $ip
				TCPStartup()
				$aIp = StringSplit($sip, ':')
				Sleep('300000') ;задержка 5 минут
				
				$socket = TCPConnect($aIp[1], $aIp[2])
					If @error Then
					 
						   FileWriteLine(@ScriptDir & '\Time.txt', @HOUR & ':' & @MIN & ':' & @SEC & '__' & @MDAY & ':' & @MON & ':' & @YEAR) ;записываем в файл

						   
					
						
					TCPCloseSocket($socket)

					EndIf
					$i = $i + 1
			WEnd

		EndIf
				TCPShutdown()
WEnd

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

 

[inververs]

А на HEAD запрос откликаются ваши регистраторы?