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

[TorNeo]

Здравствуйте. Подскажите пожалуйста, как проверить наличие интернета, если есть - запустить программу, если нет - ждать 10 минут до следующей проверки

 

[InnI]

While 1
  If Ping("ya.ru") Then
    Run("notepad.exe")
    Exit
  Else
    Sleep(10 * 60 * 1000)
  EndIf
WEnd

 

[TorNeo]

Спасибо. Заработало