[решено] Цикл пингует ПК через промежуток времени

Добрый день!

Подскажите, где ошибка? Первый проход файл создается правильно, как только $i увеличивается на 1, цикл while не работает...

Код:

#include <Date.au3>

$file = FileOpen("X:\pc1.txt", 0)



; Start



For $i = 50 To 59

   ConsoleWrite("i = " & $i & @CRLF)

   _ScheduleStart_Proc("11:" & $i & ":00")

   While 1

          $line = FileReadLine($file)

          If @error = -1 Then ExitLoop 

          $P = Ping($line, 10) ; Провека доступности узла посредсвом ICMP запросов

                 If $P = 0 Then 

                        $a = "Недоступен"

                 EndIf

                 If $P > 0 Then 

                        $a = "Доступен  "

                 EndIf

          FileWrite("X:\Ping\" & $i & "_ping_log.txt", $line & @TAB & "=" & @TAB & $a & @CRLF)

   Wend

Next





FileClose($file)





; Functions

Func _ScheduleStart_Proc($sStartTime)

   While 1

          If _NowTime() = $sStartTime Then Return 1

          ConsoleWrite(_NowTime() & @CRLF)

          Sleep(1000)

   WEnd

EndFunc