Domino 9 und frühere Versionen > ND9: Entwicklung

Zugriff auf eine Datenbank beschränken

(1/5) > >>

Bruce Willis:
Hallo,

ich habe ein seltsames Problem...

Es gibt eine Datenbank, wo mehrere Users und Gruppen verschiedene ACL Zugriffe (Editor, Autor, Leser...) und Rollen haben.
Die Rollen werden in Autor- und Leser-Feldern gespeichert.
Jetzt muss ich den Zugriff auf einige Dokumente stark beschränken.

Ich lösche jetzt fast alle Autor- und Leser-Felder in diesen Dokumenten (außer der Felder mit den ServerNamen und NotesAdmins), aber die vorherigen Berechtigten können immer noch auf diese Dokumente zugreifen!


--- Code: --- Call doc.RemoveItem("readService")
Call doc.RemoveItem("readCMDB")
Call doc.RemoveItem("readAlleDoks")
Call doc.RemoveItem("editAlleDoks")
        ...
        Call doc.Save(False, True)

--- Ende Code ---

Woran kann es liegen bzw. was sollte man noch tun?

Gruß
Leo

WildVirus:
Hallo Leo,

sicher, dass es keine anderen Autor-/Leserfelder mehr gibt und dass die Werte in den vorhandenen A/L-Feldern korrekt sind ?

Arbeiten die AW auf dem Domino oder auf lokalen Repliken ?

Ist die ACL überall identisch ?

CU
Axel

Bruce Willis:
Hallo Axel,

Danke für die Vorschläge, all das sieht gut aus. Ich hatte in den fraglichen Dokumenten sogar die Inhalte jedes Feldes (insgesamt etwa 100) überprüft und nichts Verdachtiges gefunden.
Das Problem betrifft aber nur diese Datenbank bzw. alle Repliken. In der Schablone und Testumgebung funktioniert alles richtig...
Die Datenbank ist etwa 20 GB groß, hat etwa 60.000 Dokumente und 24 ACL-Rollen...

Gruß
Leo

Tode:
Lass Dir doch mal alle Autoren und Leser- Felder NACH Deinem Save anzeigen:

--- Code: --- ForAll item In doc.Items
If item.Isauthors Then
ForAll strValue In item.values
If strAuthors = "" then
strAuthors = item.name & "=" & strValue
Else
strAuthors = strAuthors & "," & item.name & "=" & strValue
End If
End ForAll
ElseIf item.Isreaders Then
ForAll strValue In item.values
If strReaders = "" then
strReaders = item.name & "=" & strValue
Else
strReaders = strReaders & "," & item.name & "=" & strValue
End If
End ForAll
End If
End ForAll
Msgbox "Authors: " & strAuthors
Msgbox "Readers: " & strReaders

--- Ende Code ---
Steht da wirklich nur das drin, was Du erwarten würdest? Oder ist da was drin, wo Du sagst "Ach mensch... darüber kriegen die die Berechtigung...."

Bruce Willis:
Hallo Torsten,

vielen Dank für Deinen tollen Script!
Du hast mir sehr geholfen!!!   :knuddel:

Das Problem habe ich gelöst.
Ein schönes Wochenende!

Gruß
Leo

Navigation

[0] Themen-Index

[#] Nächste Seite