Тема: VBScript: слежение за модификацией файла (лога)
Пример скрипта-монитора, который проверяет каждые 15 минут, не устарел ли указанный файл (проверяется по дате последнего изменения файла). Файл считается устаревшим, если он изменялся более 45 минут назад (от текущего времени). Если файл устарел, выдаётся сообщение. Временные параметры настраиваются в начале скрипта.
' путь к файлу лога:
const FILE_PATH = "X:\work\myfile.log"
' интервал проверки в секундах (15 минут):
const SLEEP_TIME = 900
' интервал в секундах, по истечении которого файл считается устаревшим (45 минут):
const DIFFERENCE_TIME = 2700
' =======================================================
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
While 1
Set File = FSO.GetFile(FILE_PATH)
If Err.Number <> 0 Then
WScript.Echo "Невозможно прочитать файл " & FILE_PATH & vbCrLf & _
Err.Number & ": " & Err.Description
Err.Clear
Else
If (Now - File.DateLastModified) * 24 * 60 * 60 > DIFFERENCE_TIME Then
WScript.Echo "Файл """ & FILE_PATH & """ сильно устарел!" & vbCrLf & _
"Время последней модификации файла: " & File.DateLastModified
End If
End If
WScript.Sleep SLEEP_TIME * 1000
Wend
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.