[kotlyar]

вот с письмами...

[Iska]

kotlyar, то есть, за файлами во вложенных в «корневой» каталог папках «*-.IMAP» мы не следим, так?

[kotlyar]

да, и за двумя файлами Hiwater.mrk, Imap.mrk, тоже не следим. только за файлами в корне sib.biz.imap

[Iska]

да, »

Ясно.

и за двумя файлами Hiwater.mrk, Imap.mrk, тоже не следим. »

Ну, это понятно — у них ведь расширение не «.eml».

Что ж, сие гораздо проще. Делаем.

[kotlyar]

Это радует, жду с нетерпением!)

[Iska]

kotlyar, вот примерная болванка кода:

читать дальше »

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemSink


strSourceFolder = "C:\Песочница\052\sib.biz.imap"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strSourceFolder) Then
	strComputer = "."
	
	Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
	Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
	Set objSWbemSink       = WScript.CreateObject("WbemScripting.SWbemSink", "Sink_")
	
	With objSWbemServicesEx.Get("Win32_Directory.Name='" & Replace(strSourceFolder & "\.", "\", "\\") & "'")
		objSWbemServicesEx.ExecNotificationQueryAsync objSWbemSink, _
			"SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE " & _
			"TargetInstance ISA 'CIM_DataFile' AND " & _
			"TargetInstance.Drive = '" & .Drive & "' AND " & _
			"TargetInstance.Path = '"  & .Path  & "' AND " & _
			"TargetInstance.Extension = 'eml'"
		
		Do
			WScript.Sleep 100
		Loop
		
		objSWbemSink.Cancel
		
		Set objSWbemSink       = Nothing
		Set objSWbemServicesEx = Nothing
		Set objSWbemLocator    = Nothing
	End With
Else
	WScript.Echo "Source folder [" & strSourceFolder & "] not found."
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub Sink_OnObjectReady(objSWbemObjectEx, objSWbemAsyncContext)
	With objSWbemObjectEx
		Select Case .Path_.Class
			Case "__InstanceCreationEvent"
				WScript.Echo Now() & " |  | Create:  [" & .TargetInstance.Name & "]"
			Case "__InstanceDeletionEvent"
				WScript.Echo Now() & " |  | Delete:  [" & .TargetInstance.Name & "]"
		End Select
	End With
End Sub
'=============================================================================

Запускать под «cscript.exe». Здесь я сделал просто вывод даты/времени и имени файла для того, чтобы оценить работоспособность скрипта и верность нашего подхода.

Насчёт записи в лог-файл. Писать-то мы можем. Но далее будет проблема, как оттуда корректно и эффективно извлечь эту информацию. Я бы предпочёл писать в базу данных. У Вас есть SQL-сервер? Можем его использовать?

[kotlyar]

Да есть, mssql 2008

[Iska]

kotlyar, а приведённый выше скрипт отрабатывает в консоли? Корректно?

[kotlyar]

Еще не проверял, не был на работе сегодня.

[Georgio]

kotlyar, здравствуйте. Испытайте пакетный файл:

Код:

@echo off

set "folder=C:\MDaemon\Public Folders\sib.biz.IMAP"
set span=300
set "mask=*.eml"

echo $$$>"%temp%\$$$1.tmp"
md "%temp%\$$$" 2>nul
:#
dir /a-d/b "%folder%\%mask%" 2>nul| findstr /livg:"%temp%\$$$1.tmp">"%temp%\$$$2.tmp"
(
for /f "usebackq delims=" %%i in ("%temp%\$$$2.tmp") do (
 set /a count+=1
 start "" /b cmd /v:on /c "set date_time=!date! !time!& (for /f %%j in ('set /a span+1') do @ping -n %%j localhost>nul)& (if exist "%folder%\%%i" echo %%i:     !date_time! ... !date! !time!>"%temp%\$$$\!count!.log")& exit /b"
 )
)|| (
for /f %%i in ('
"tasklist| findstr /bil cmd.exe| find /c /v """
') do (
 if %%i leq 2 (
  for /f %%j in ('
  "dir /b "%temp%\$$$"| find /c /v """
  ') do (
   for /l %%k in (1 1 %%j) do (
    type "%temp%\$$$\%%k.log">>"report.log"
    del "%temp%\$$$\%%k.log"
    )
   )
  )
 )
set count=
)
type "%temp%\$$$2.tmp">>"%temp%\$$$1.tmp"
goto:#

.