hallo
ich benutze dieses Script im NAB, so kann ich sehen wer eine Speicherung an den Personen - bzw Gruppendokumente vorgenommen hat.
Beispiel für Personendokument
Einfach in QuerySave
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim profile As NotesDocument
Set doc = Source.Document
'Set profile=doc.ParentDatabase.GetProfileDocument("PublicDirectoryProfile")
'Change to REAL name of directory profile
Set profile=doc.ParentDatabase.GetProfileDocument("DirectoryProfile")
If profile.GetItemValue("SecureInetPasswords")(0)="1" Then
Call doc.ReplaceItemValue("$SecurePassword","1")
End If
Dim l As NotesLog
Set db = s.CurrentDatabase
Set l = New Noteslog (db.Title & " (" & db.Filename & ")")
Call l.OpenNotesLog ("SERVER", "logs\adminlog.nsf")
Call l.logAction ( "Speicherung Person: " & Source.FieldgetText("Firstname") &" " & Source.FieldgetText("Lastname") &" - - - " &_
" 1 Shortname : " & Source.FieldgetText("shortname") &_
" 2 Fullname : " & Source.FieldgetText("FullName") &_
" 3 MailSystem : " & Source.FieldgetText("MailSystem") &_
" 4 MailServer : " & Source.FieldgetText("MailServer") &_
" 5 MailFile : " & Source.FieldgetText("MailFile") &_
" 6 Mailadresse : " & Source.FieldgetText("Mailaddress") &_
" 7 Internetadresse : " & Source.FieldgetText("InternetAddress") )
End Sub
Und hier für die Löschung
unter RESSOURCEN\ANDERE\DATNEBANKSCRIPT
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim l As NotesLog
Set db = session.CurrentDatabase
Set l = New Noteslog (db.Title & " (" & db.Filename & ")")
Call l.OpenNotesLog ("SERVER", "logs\adminlog.nsf")
Set dc=Source.Documents
Set doc = dc.GetFirstDocument
While Not doc Is Nothing
Call l.logAction ( "Löschung : " & doc.Firstname(0) & " " & doc.Lastname(0) & doc.Listname(0))
Set doc = dc.GetNextDocument ( doc )
Wend
End Sub
Du musst natürlich die Datenbank im Verzeichnis anlegen,
diese kannst du ja dann noch bearbeiten.
Nach Gruppen....
Man hat eine gute Übersicht über vergangene Änderungen , an Peronen- bzw Gruppendokumente.
Wichtig ist das auch jeder der eine Änderung am NAB durchführen darf, Zugriff auf die Log-DB hat , sonst kommt eine Fehlermeldung.
Gruss
Monster
