var LogFileSpec = "D:\\test\\startup.log";
var FS = new ActiveXObject("Scripting.FileSystemObject");
while (!FS.FileExists(LogFileSpec)) WScript.Sleep(1);
var LogFile = FS.OpenTextFile(LogFileSpec, 1 /*ForReading*/);
var line = "";
do {
while (LogFile.AtEndOfStream) WScript.Sleep(1);
var char = LogFile.Read(1);
if (char == '\n') {line = ""; continue;} else line += char;
} while (line != "STARTED_SUCCESSFULLY");
LogFile.Close();
WScript.Echo("Сервер запущен");
P.S. Если файл создаётся программно путём последовательной дозаписи, то, скорее всего, он не содержит BOM.
]]>По поводу лога.
1. Он каждый раз обновляется при старте или дописывается?
2. В какой он кодировке?
3. В конце текста может быть возрат каретки и/или перевод строки, или там всегда строчный символ?
Нет, так как сама служба запускается при старте системы, а сам сервис (в частности речь о Tomcat) дает знать о запуске только в логах, при появлении записи Started_successful.
]]>
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Не знаю, что надо указать, чтобы скрипт постоянно мониторил изменения в файле до тех пор, пока не найдет соответствующую фразу, после чего выдал сообщение и закрылся. Спасибо за возможную помощь.
]]>