Überwachung von Freigaben

[Parkesel 10]

Hallo Leute.

 

Da es ja nicht geht einen Ordner mit Ntfs Rechten so zu bestücken dass Dateien erstellt aber keine gelöscht werden können,

suche ich eine Software welche Dateizugriffe Monitoriert und an jemand ein Mail schickt wenn irgendwer eine Date löscht.

 

Kennt jemand sowas?

 

Ist dies mithilfe der Objectzugriffs versuche möglich?

 

Vielen dank

[blub 115]

Hallo,

Wenn du ein bischen Skripten kannst und nicht allzuviele Unterverzeichnisse überwachen musst, kannst du es hiermit versuchen.

 

'==========================================================================
'
'
' NAME: <MonitorFileDeletionEvent.vbs>
'
' AUTHOR: Ed Wilson , MS
' DATE  : 4/27/2005
'
' COMMENT: <Use WMI eventing to watch for file creation>
'1. Looks at the cim_directoryContainsFile wmi class. Associates it With
'2. the win32_directory class. Note we use the group component which we Set
'3. equal to a directory name of c:\fso. 
'4. Uses a function to prepare the input for the win32_directory class. This 
'5. makes it easy to type in a "normal" directory name ... 
'==========================================================================

Option Explicit 
'On Error Resume Next
dim strComputer
dim wmiNS
dim wmiQuery
dim objWMIService
dim colItems
dim objItem
Dim objClass 'holds wmi class to monitor
dim objGroup 
Dim StrMessage 'holds output message
Dim strFolder

strComputer = "."
wmiNS = "\root\cimv2"
objClass = "'cim_DirectoryContainsFile'"
objGroup = "'Win32_Directory.Name="
strFolder = "C:\fso"
strFolder = funFix(strFolder)
' StrMessage = "A new " & objClass & " was created: "
StrMessage = "A " & objClass & " was deleted: "
'wmiQuery = "SELECT * FROM __InstanceCreationEvent _"
wmiQuery = "SELECT * FROM __InstanceDeletionEvent " _
       & "WITHIN 10 WHERE TargetInstance ISA " & objClass & " AND " _
           & "TargetInstance.GroupComponent= " _
               & objGroup & strFolder

Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS)
Set colItems = objWMIService.ExecNotificationQuery(wmiQuery)

Do
Set objItem = colItems.NextEvent
   Wscript.Echo StrMessage & objItem.TargetInstance.PartComponent
Loop

Function funFix(strFolder)
funFix = """" & Replace(strFolder, "\", "\\\\") & """'"
End function

 

Im Orginal Amazon.de: English Books: Microsoft® Windows® Scripting with WMI: Self-Paced Learning Guide.: Self Paced Learning Guide

wurde das CreationEvent überwacht. Ich habe das Skript daher an zwei Stellen angepasst.

 

cu

blub

[Parkesel 10]

Vielen dank

 

Aber der kunde hat unter den Ordner Daten x unterordner hmm ist irgendwie zu komplex

 

Aber wenn ich nichts finde werde ich es testen

 

Danke dir