Проверка на наличие интернета
 

Здравствуйте товарищи!
Прошу вашей помощи, нужно написать код который проверял бы наличие интернета путем пинга до ya.ru и в случае успешного пинга (наличия интернета соответственно) переходить выполнять код дальше который находится ниже, в случае если пинг не идет (интернет не работает) снова идти на проверку, то есть своеобразный цикл нужен.
В батнике у меня реализовывался этот код так:

@echo off
:start
ping -n 1 ya.ru |>nul find /i "TTL=" && (goto next) || (ping 127.1 -n 2& Goto :start)
:next
start server1.v3.exe

Но и при всем при этом нужно чтобы никаких консольных и тому подобных окон не всплывало, то есть @SW_HIDE нужно еще туда воткнуть.
Заранее всем огромное спасибо! :)

Можно попробовать так извратиться:

#include <Inet.au3>
TCPStartup()
$sIP = TCPNameToIP("yandex.ru")
If $sIP = "" Then MsgBox(64, "Ошибка", "ВНИМАНИЕ ! Отсутствует подключение к интернету.")
TCPShutdown()