Слежка за изменением размеров логов - VB

Формулировка задачи:

Помогите решить задачу скриптом vbs:
Есть папка, куда определенная программка пишет свои логи. В этой же папке кроме логов храняться их старые копии, которые со временем не изменяются - расширение у них, скажем, *.bak.
Необходимо через некоторое время (каждую минуту) следить изменились ли файлы с расширением *.log по размеру. Файлов *.log немного - не более 5.
Если хоть один из *.log не изменился - запускать скрипт (например, "no_changes!.cmd").

Решение задачи: «Слежка за изменением размеров логов»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> objFSO,objLogFolder,objLogFile
<font color="blue">Set</font> objFSO=CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
<font color="blue">Set</font> objLogFolder=objFSO.GetFolder(<font color="teal">"D:\Logs"</font>)
<font color="blue">For</font> <font color="blue">Each</font> objLogFile <font color="blue">In</font> objLogFolder.Files
<font color="blue">If</font> LCase(objFSO.GetExtensionName(objLogFile.<font color="blue">Name</font>))=<font color="teal">"log"</font> <font color="blue">Then</font>
  <font color="blue">Do</font>
           WScript.Echo objLogFile.Size
           Wscript.Sleep <font color="darkblue"><b>5000</b></font>
  <font color="blue">Loop</font>
      <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font>
<font color="blue">Set</font> objLogFile=<font color="blue">Nothing</font>
<font color="blue">Set</font> objLogFolder=<font color="blue">Nothing</font>
<font color="blue">Set</font> objFSO=<font color="blue">Nothing</font>
                        