Domino 9 und frühere Versionen > Entwicklung

Rechteproblem bei Postopen der DB

(1/3) > >>

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

--- Ende Code ---

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

 ;D

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:

--- Zitat von: pl001 am 12.07.05 - 13:35:39 ---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

--- Ende Zitat ---

Hallo Peter,

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

Gruß
Spalter ;)

klaussal:
NotesACLEntryClass ! Dort steht alles...

Navigation

[0] Themen-Index

[#] Nächste Seite