Vista - Monitor a file, generate log when it was copied

To All:

I'm looking for a method to monitor a specify doc, when it was copied it
will generate a log,
the doc file has been encrypted.Any idea?

"Buddy" <qinfengbin@newsgroup> wrote in message
news:uLZ8SWZPKHA.3256@newsgroupCan you be a little more specific?

The File's Full Path is d:\documents\List.Doc.If someone copy this file, and
it will generate a log file.

"Pegasus [MVP]" <news@newsgroup> дÈëÏûÏ¢ÐÂÎÅ:eGYX9WbPKHA.4580@newsgroup

OK. What if the file already exists? What if someone edits, then saves the
file?

"Buddy" <qinfengbin@newsgroup> wrote in message
news:uycDuBePKHA.4244@newsgroup

Buddy wrote:hi Buddy,

I will be greatly surprised if you find a way to do this
via script.

Generally speaking, when you wish to be notified of some
system activity, you have to insert a "hook" into the
system. In your case, an appropriate hook would be
a "Copy Hook". Read this:

http://msdn.microsoft.com/en-us/libr...63(VS.85).aspx

As you can see, that is a somewhat sophisticated mechanism,
and requires some other language (not vbs).

I had initially thought that one of the "File Watcher"
utilities might be of use, but after reading through some
of the descriptions of these utilities, I think not.
But then, you can google "File Watcher Utility" and
see for yourself.

cheers, jw
____________________________________________________________

You got questions? WE GOT ANSWERS!!! ..(but, no guarantee
the answers will be applicable to the questions)

To All:
Thanks For All Your Help, I also think it's very difficult.So if there's
a tool to do job is also OK!

"mr_unreliable" <kindlyReplyToNewsgroup@newsgroup>
??????:ODunV7fPKHA.352@newsgroup

To Pegasus :
It ignore the other event but copy event.

"Pegasus [MVP]" <news@newsgroup> дÈëÏûÏ¢ÐÂÎÅ:eI7OfDfPKHA.4428@newsgroup

"Buddy" <qinfengbin@newsgroup> wrote in message
news:ueX6jGpPKHA.1280@newsgroupHere you go. The script is based on an idea by the Scripting Guy.

sFileName = "d:\temp\test.txt"
iInterval = 60000 'Milliseconds

sName = "'" & Replace(sFileName, "\", "\\") & "'"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where Name = " & sName)

For Each objFile In colFiles
strOriginalTimestamp = objFile.LastModified
Next

WScript.Echo "Monitoring """ & sFileName & """ " & Now

Do While True
WScript.Sleep iInterval
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where Name = " & sName)

For Each objFile In colFiles
strLatestTimestamp = objFile.LastModified
Next

If strLatestTimestamp <> strOriginalTimestamp Then
strOriginalTimestamp = strLatestTimestamp
WScript.Echo Now & " The file """ & sFileName _
& """ has been modified in the last " _
& iInterval\1000 & " seconds"
strOriginalTimestamp = strLatestTimestamp
End If
Loop