- как остановить скрипт 
- возможно ли сделать вместо обычного сообщения всплывающее сообщение из трея?
- как прикрутить логирование
strDir = "c:\ta" ' каталог, за которым следим
strComputer = "." ' имя компьютера; "." означает текущий компьютер
strDirSlash = Replace(strDir, "\", "\\\\")
strNamespace = "Root\CIMV2"
Set objService = GetObject("WinMgmts:\\" & strComputer & "\" & strNamespace)
Set objSink = WScript.CreateObject("WbemScripting.SWbemSink", "Sink_")
Set fso = CreateObject("Scripting.FileSystemObject")
objService.ExecNotificationQueryAsync objSink, _
"SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " &_
"Targetinstance ISA 'CIM_DirectoryContainsFile' and " &_
"TargetInstance.GroupComponent= " &_
"'Win32_Directory.Name=""" & strDirSlash & """'"
While 1
WScript.Sleep 3000
Wend
Sub Sink_OnObjectReady(oOutParams, oContext)
Set Hh = CreateObject("Internet.HHCtrl")
Hh.TextPopup "Принят новый файл: " & vbCrLf & objService.Get(oOutParams.TargetInstance.PartComponent).Name, "Courier New,22", 1, 1, 1, 1
WScript.Sleep 1000
Set Hh = Nothing
AddLog(objService.Get(oOutParams.TargetInstance.PartComponent).Name)
End Sub
Function AddLog(str)
if fso.FileExists("sync_m_" & date & ".htm") then
Set objTextFile = fso.OpenTextFile("sync_m_" & date & ".htm", 8, True)
else
Set objTextFile = fso.OpenTextFile("sync_m_" & date & ".htm", 2, True)
end if
objTextFile.WriteLine("<font size=3>" & Now & " - " & Str & "</font></br>")
objTextFile.Close
End Functionв итоге - встплывающие сообщения есть (пусть и не из трея)
лог сделан
ЗЫ но как оказалось нужно на рабочем столе пользователя динамически отражать последние 5 файлов которые ему пришли... думаю как сделать
]]>- как остановить скрипт
- возможно ли сделать вместо обычного сообщения всплывающее сообщение из трея?
- как прикрутить логирование
strServer = "."
Set objWMI = GetObject("winmgmts://" & strServer & "/root\cimv2")
Set objInstances = objWMI.InstancesOf("Win32_LocalTime",48)
For Each objInstance in objInstances
WScript.Echo objInstance.getObjectText_
NextЕсли вам нужно подставить в WQL запрос маску 'mz*.*' то вам нужно использовать оператор like '%mz%[.]%' - но тут может быть проблемка ведь в имени файла может быть несколько точек,
можно конечно попытаться подставить место последнего '%' несколько '???' или '?????' вообщем попробовать задать шаблон для расширения если конечно они у вас регламентированной длинны.
Ошибки нет, но сообщение "выскакивает" до окончания копирования.
Я пробовал использовать еще 1 скрипт с форума (он еще и копирует) - он действительно выдает ошибку.
Ошибка была на другом скрите! Извиняюсь, насчет ошибки я ввел в заблуждение!
]]>Однако: я не подтверждаю появления какой-либо ошибки на выложенном Вами выше и несколько адаптированном мною под себя коде (для целей отладки я завершаю отслеживание после появления первого же файла):
Option Explicit
Dim objSWbemServicesEx
Dim objSWbemSink
Dim strFolder
Dim boolDone
Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objSWbemSink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_")
strFolder = "c:\Temp"
objSWbemServicesEx.ExecNotificationQueryAsync objSWbemSink, _
"SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
"TargetInstance ISA 'CIM_DirectoryContainsFile' AND " & _
"TargetInstance.GroupComponent = 'Win32_Directory.Name=""" & Replace(strFolder, "\", "\\\\") & """'"
boolDone = False
Do
WScript.Sleep 1000
Loop Until boolDone
objSWbemSink.Cancel
Set objSWbemSink = Nothing
Set objSWbemServicesEx = Nothing
WScript.Quit 0
'=============================================================================
'=============================================================================
Sub SINK_OnObjectReady(objSWbemObject, objSWbemAsyncContext)
With objSWbemServicesEx.Get(objSWbemObject.TargetInstance.PartComponent)
WScript.Echo .FileName & "." & .Extension
End With
boolDone = True
End Sub
'=============================================================================Какая именно ошибка у Вас возникала? Либо Вы что-то сразу пытались сделать с файлом, а код не привели?
]]>bnp322 пишет:если файл еще копируется,
Как и чем копируется файл? У меня такой ошибки не возникало ни разу, т.е. уведомление о событии возникало только после закрытия файла (не важно, при создании, копировании или перемещении).
Уведомление о событии возникает в начале копирования !
]]>Он все делает правильно, остается добавить анализ на изменение объектов
]]>Ошибки нет, но сообщение "выскакивает" до окончания копирования.
Файлы .avi, .mkv
Я пробовал использовать еще 1 скрипт с форума (он еще и копирует) - он действительно выдает ошибку.
]]>если файл еще копируется,
Как и чем копируется файл? У меня такой ошибки не возникало ни разу, т.е. уведомление о событии возникало только после закрытия файла (не важно, при создании, копировании или перемещении).
]]>strDir = "c:\temp" ' каталог, за которым следим
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 & """'"
While 1
WScript.Sleep 1000
Wend
' Процедура-обработчик события OnObjectReady объекта sWbemSink
Sub Sink_OnObjectReady(oOutParams, oContext)
strMessage = objService.Get(oOutParams.TargetInstance.PartComponent).FileName _
& "." & objService.Get(oOutParams.TargetInstance.PartComponent).Extension
Wscript.Echo strMessage
End SubНо тут есть проблема, если файл еще копируется, то возникает ошибка.
Как в текущий скрипт встроить еще и цикл, который будет проверять файлы на неизменность в течении ~10 сек и лишь затем переходить к анализу новизны.
На форуме я нашел похожий скрипт, а как их объединить ...
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMv2")
Set objEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceModificationEvent WITHIN 5 WHERE " & _
"TargetInstance ISA 'CIM_DataFile'" & _
" AND TargetInstance.Drive = 'c:'" & _
" AND TargetInstance.Extension = 'txt'" & _
" AND TargetInstance.Path = '\\1\\'")
Wscript.Echo "Поиск ..."
Do While(True)
Set objReceivedEvent = objEvents.NextEvent
WScript.Echo "File modifed: " & objReceivedEvent.TargetInstance.FileName
LoopЕсли не трудно, то где растолковывается о
Ссылки и порядок обучения здесь. Полное описание — WMI SDK — в MSDN.
…а как получают лишь имя?
Смотрим опять же в CIM_DataFile, берём и склеиваем свойства «.FileName» и «.Extension»:
WScript.Echo objSWbemObjectEx.FileName & "." & objSWbemObjectEx.ExtensionobjSWbemObjectEx
objService.Get
Многочисленные параметры oOutParams.TargetInstance.PartComponent
]]>