Autoren und Leserfelder modifizieren ... in der ACL

[Polarbaer]

Hallo,
ich habe das Problem, dass wir irgendwann bei allen Maildatenbanken in der ACL eingestellt haben, dass Leser- und Autorenfelder modifiziert werden sollen. Als wir dies getan haben, haben alle User auch neue Adminserver bekommen, bis wir dann gemerkt haben, dass die Kombination "Adminserver der DB ist ungleich dem Homeserver des Users und der User hat nur designer rechte" nicht gut ist. Die Adminserver wieder richtig zu stellen hat einges an Arbeit mit sich gebracht. Jetzt ist uns klar geworden, dass wir die Einstellung "do not modify names fields" bevorzugen wuerden. Jetzt endlich zu meiner Frage:

Kann mir jemand einen Tip geben, wie ich diese Einstellung fuer alle User aendern kann, ohne die Adminserver mit zu aendern?

(ich kann etwas Lotus script, weiss aber nicht, wie man diese eigenschaft anspricht)

[Meff]

Hi Polarbaer,

so kommst Du da dran:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.CreateACLEntry("tornado", ACLLEVEL_MANAGER)
Hier wird der neue Eintrag als Administrationsserver gesetzt --> entry.IsAdminServer = True
True setzt die Eigenschaft, dass der Adminserver Leser und Autorenfelder ändern darf, falls entsprechend das Gegenteil --> entry.IsAdminReaderAuthor = True
Call acl.Save

Du müsstest Dir jetzt halt nur eine Schleife bauen, in welcher Du über das DB Directory läufst und jede entsprechende Datenbank anpasst.

Meff

P.S. In Deinem Fall würde ich halt prüfen, ob der Adminserver richtig ist und dann nur noch die Property "IsAdminReaderAuthor verändern.