Тема: VBS: Поиск данных в обновляемом файле
Доброго времени суток.
После перезагрузки сервера запускается некий сервис в течении 40 минут. Нужно получить сообщение, когда он полностью стартовал. Во время всей процедуры запуска создается некий лог, в котором пишутся все этапы запуска, и окончание запуска оканчивается записью STARTED_SUCCESSFULLY. Пробовал использовать код по аналогии в
http://forum.script-coding.com/viewtopic.php?id=6661
option explicit
Dim objFSO, txtFile, x, done
Set objFSO = Createobject("Scripting.FileSystemObject")
Set txtFile = objFSO.OpenTextFile("D:\test\startup.log",1)
Do
Do While Not txtFile.AtEndOfStream
x=txtFile.Readline
If InStr(x, "STARTED_SUCCESSFULLY") Then
MsgBox "Сервер запущен"
done = true
Exit Do
End If
Loop
Loop
Не знаю, что надо указать, чтобы скрипт постоянно мониторил изменения в файле до тех пор, пока не найдет соответствующую фразу, после чего выдал сообщение и закрылся. Спасибо за возможную помощь.