sPath = "\\Server\Drive$\Folder1\Folder2\Folder3" sComputer = split(sPath,"\" )(2) sDrive = split(sPath,"\" )(3) sDrive = REPLACE(sDrive, "$", ":" ) sFolders = split(sPath,"$" )(1) sFolders = REPLACE(sFolders, "\", "\\" ) & "\\" Set objWMIService = GetObject("winmgmts:\\" & sComputer & "\root \cimv2" ) Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE " _ & "TargetInstance ISA 'CIM_DataFile' AND " _ & "TargetInstance.Drive='" & sDrive & "' AND " _ & "TargetInstance.Path='" & sFolders & "'" ) Wscript.Echo vbCrlf & Now & vbTab & _ "Begin Monitoring for a Folder Change Event..." & vbCrlf Do Set objLatestEvent = colMonitoredEvents.NextEvent Select Case objLatestEvent.Path_.Class Case "__InstanceCreationEvent" WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName _ & " was created" & vbCrlf Case "__InstanceDeletionEvent" WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName _ & " was deleted" & vbCrlf Case "__InstanceModificationEvent" If objLatestEvent.TargetInstance.LastModified <> _ objLatestEvent.PreviousInstance.LastModified then WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName _ & " was modified" & vbCrlf End If IF objLatestEvent.TargetInstance.LastAccessed <> _ objLatestEvent.PreviousInstance.LastAccessed then WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName _ & " was accessed" & vbCrlf End If End Select Loop Set objWMIService = nothing Set colMonitoredEvents = nothing Set objLatestEvent = nothing |