Rechteproblem bei Postopen der DB

[pl001]

Hallo,

im Datenbank-Script meiner Datenbank habe ich folgendes Script laufen.

Code

Sub Postopen(Source As Notesuidatabase)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase
	db.FolderReferencesEnabled = True
End Sub

Dies funktioniert allerdings nur, wenn man das Recht 'Gemeins. Ordner/Ansichten erstellen' hat. Wenn  also ein Nutzer nicht über dieses Recht verfügt, bekommt der die Fehlermeldung 'Sie sind zur Durchführung dieser Operation nicht berechtigt'.

Kann nun verhindern, dass dieses Script bei Nutzern mit fehlender Berechtigung ausgeführt wird? Wenn ja, wie muss ich vorgehen?

Gruß
Peter

[klaussal]

Aus der Designer-Hilfe:

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
If(db.FolderReferencesEnabled) Then
  Messagebox "Folder References enabled"
Else
  Messagebox "Folder References are not enabled"
  Messagebox "Enabling Folder References"
  db.FolderReferencesEnabled = True
End If

 

[pl001]

Hier wird doch aber nur geprüft, ob die FolderReferences aktiv sind. Ich suche aber eine Lösung, bei der geprüft wird, ob der Nutzer das Recht 'Gemeins. Ordner/Ansichten erstellen' hat.

Gruß
Peter

[Spalter]

Hier wird doch aber nur geprüft, ob die FolderReferences aktiv sind. Ich suche aber eine Lösung, bei der geprüft wird, ob der Nutzer das Recht 'Gemeins. Ordner/Ansichten erstellen' hat.

Gruß
Peter

Hallo Peter,

schau Dir mal die NotesACL Entry Klasse an - dort speziell die CanCreateSharedFolder Eigenschaft.

Gruß
Spalter

[klaussal]

NotesACLEntryClass ! Dort steht alles...

[Axel]

Hi,

aber Achtung!!!

Die NotesACL-Klassen haben einen entscheidenden Nachteil. Sie funktionieren nur für Einträge die direkt in der ACL stehen. Ist ein User über eine Gruppe in der ACL eintragen, geht's nicht mehr.

Abhilfe schaffen hier nur die Formelbefehle, z.B. @UserAccess. Wenn's denn Script sein muss, muss man dann mit Evaluate arbeiten, wobei @UserAccess nicht mit Evaluate nutzbar ist .

Hier mal ein Beispiel wie so was aussehen könnte: Prüfung der Zuordnung von Rollen mit Script


Axel

[pl001]

Die NotesACL-Klassen haben einen entscheidenden Nachteil. Sie funktionieren nur für Einträge die direkt in der ACL stehen. Ist ein User über eine Gruppe in der ACL eintragen, geht's nicht mehr.

Da ich nicht mit Gruppen arbeite, dies kein Problem. Leider kenne ich mich nicht so gut mit LS aus, um eine solche Abfrage umzusetzen. Könnt Ihr mir eventuell ein Beispiel zeigen.

Danke
Peter

[klaussal]

Dann sieh doch mal in der Hilfe nach.
Suchbegriff : CanCreateSharedFolder

klaus

[animate]

kannst du da nicht mit einer einfachen Fehlerbehandlung arbeiten und den Fehler abfangen? Wäre IMHO einfacher, als zu prüfen, was das System von selbst rausfinden würde.

On Error Goto usw.

[pl001]

Ich will ja auch nur vermeiden, dass Nutzer denen die erforderlichen Rechte fehlen eine Fehlermeldung zu sehen bekommen. Natürlich ohne die bestehenden Rechte zu ändern.

Gruß
Peter

[Semeaphoros]

Genau dahin läuft der Vorschlag von Thomas.

[pl001]

Ja, nur wie kann ich dies umsetzen?

Gruß
Peter

[Semeaphoros]

Durch Studium der Designer-Hilfe

Durch Lernen der Programmiersprache Basic (wovon LotusScript ein Dialekt ist)

Durch Studieren dieses Threads:
http://www.atnotes.de/index.php?topic=11980.0