Скрипт для определения что в папку НЕ пишется файл в течение времени

strDir = "c:\камера" ' это каталог, за которым следим
strComputer = "." ' имя компьютера; "." означает текущий компьютер
'================================================= =============================
strDirSlash = Replace(strDir, "\", "\\\\")
strNamespace = "Root\CIMV2"
' Подключаемся к пространству имен
Set objService = GetObject("WinMgmts:\\" & strComputer & "\" & strNamespace)
Set objSink = WScript.CreateObject("WbemScripting.SWbemSink", "Sink_")
 
objService.ExecNotificationQueryAsync objSink, _
"SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " &_
"Targetinstance ISA 'CIM_DirectoryContainsFile' and " &_
"TargetInstance.GroupComponent= " &_
"'Win32_Directory.Name=""" & strDirSlash & """'"
 
' Выводим сообщение о запуске сканера
Wscript.Echo "Запущен сканер создания файла в папке " & strDir
 
' Запускаем бесконечный цикл ожидания
While 1
WScript.Sleep 1000
Wend
 
' Процедура-обработчик события OnObjectReady объекта sWbemSink
Sub Sink_OnObjectReady(oOutParams, oContext)
strResult = Date & " " & Time & vbCrLf &_
"Создан файл: " & oOutParams.TargetInstance.PartComponent
Wscript.Echo strResult
End Sub

Set FSO = CreateObject("Scripting.FileSystemObject")
Dim isEvent, Secs
While true
  WScript.Sleep 1000
  Secs=Secs+1
  if Secs >= 3600 then
    Secs=0
    Wscript.Echo iif(isEvent,"Появились новые файлы", "Не было новых файлов.")
    isEvent = false
  end if
Wend
 
' Процедура-обработчик события OnObjectReady объекта sWbemSink
Sub Sink_OnObjectReady(oOutParams, oContext)
  CurPath = left(WScript.ScriptFullName, len(WScript.ScriptFullName) - len(WScript.ScriptName))
  Set TextStream = FSO.OpenTextFile(CurPath & "Files.LOG", 8, true)
  strResult = strResult & Date & " " & Time & vbCrLf &_
  "Создан файл: " & oOutParams.TargetInstance.PartComponent & vblf
  TextStream.WriteLine strResult
  TextStream.Close
  isEvent = true
End Sub

Public objFS, strList
Dim objFile, objDict, strFolder, arrFolders(), arrTemp, strTemp, blnIsFirst
 
strFolder = "C:\Temp"
strLog = "Counter.log"
Set objFS = CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(strFolder) Then
    strLog = objFS.BuildPath(objFS.GetParentFolderName(WScript.ScriptFullName), strLog)
    If objFS.FileExists(strLog) Then
        Set objFile = objFS.OpenTextFile(strLog, 1)
        arrTemp = Split(objFile.ReadAll, vbNewLine)
        objFile.Close
        If StrComp(strFolder, arrTemp(0), vbTextCompare) = 0 Then
            WScript.Echo "Формирование массива данных для сравнения..."
            Set objDict = CreateObject("Scripting.Dictionary")
            objDict.CompareMode = 1
            For i = 1 To UBound(arrTemp)
                If Len(arrTemp(i)) > 0 Then objDict.Add Split(arrTemp(i), "*")(0), CInt(Split(arrTemp(i), "*")(1))
            Next
            ReDim arrFolders(objDict.Count - 1)
            WScript.Echo "Очередной просмотр дерева папок..."
            i = -1
            For Each strTemp In objDict.Keys
                If objFS.GetFolder(strTemp).Files.Count = objDict.Item(strTemp) Then
                    i = i + 1
                    arrFolders(i) = strTemp
                End If
            Next
            If i >= 0 Then
                WScript.Echo "Папки, количество файлов в которых не изменялось (" & i + 1 & "):"
                For i = 0 To UBound(arrFolders)
                    WScript.Echo arrFolders(i)
                Next
            Else
                WScript.Echo "Папок, количество файлов в которых не изменялось, не найдено."
            End If
        Else
            blnIsFirst = True
        End If
    Else
        blnIsFirst = True
    End If
    If blnIsFirst Then
        WScript.Echo "Первичный просмотр дерева папок..."
        strList = UCase(strFolder)
        View_Folder(objFS.GetFolder(strFolder))
        Set objFile = objFS.CreateTextFile(strLog, True)
        objFile.WriteLine strList
        objFile.Close
        WScript.Echo "Готово."
    End If
    Set objFile = Nothing
Else
    WScript.Echo "Не найден путь " & UCase(strFolder)
End If
Set objFS = Nothing
WScript.Quit 0
 
'======
 
Function View_Folder(objDir)
Dim objItem
WScript.Echo objDir.Path
strList = strList & vbNewLine & objDir.Path & "*" & objDir.Files.Count
For Each objItem In objDir.SubFolders
    View_Folder(objItem)
Next
End Function