Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMv2") 
Set objEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceOperationEvent WITHIN 5 WHERE " & _
	"TargetInstance ISA 'CIM_DataFile'" & _
	" AND TargetInstance.Drive = 'd:'" & _
	" AND TargetInstance.FileSize > 0" & _
	" AND TargetInstance.Path Like '\\test\\%'")

Do While(True)
    Set objReceivedEvent = objEvents.NextEvent
    Debug.WriteLine objReceivedEvent.CIMTYPE
    Body = "File modifed: " & objReceivedEvent.TargetInstance.FileName & "  " & objReceivedEvent.TargetInstance.Name
    Call SendPost("mail2", "apatkin@mera.ru;richard@mera.ru;kloodj@mera.ru", "apatkin@mera.ru", "File modifed", body)
Loop

Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody)
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2 
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP_Server
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =  10 
    Flds.Update
    iMsg.Configuration = iConf
    iMsg.To = strTo
    iMsg.From = strFrom
    iMsg.Subject = strSubject
    iMsg.TextBody = strBody
    iMsg.Send
End Function