Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: nieke am 14.10.03 - 10:08:05
-
Hallo zusammen!
Ich möchte gerne per LotusScript abfragen, ob der CurrentUser Mitglied einer bestimmten Rolle ist.
Ich wollte dazu die Mitglieder einer bestimmten Rolle abfragen und dann mit Contains feststellen, ob dieser User Mitglied dieser Rolle ist.
Wie kriege ich denn per Script heraus, welche Mitglieder eine Rolle hat? Habt Ihr eine Idee?
-
Mit Evaluate und @UserNamesList.
Und immer daran denken: Lokal gibt es ohne konsistente ACL keine Rollen.
Bernhard
-
... dann werd' ich das mal so versuchen.
Ich dachte, diese Funtkon @UsernameList würde es eventuell auch in LotusScript geben.
DANKE für den Tip!
-
... so sollte es gehen ....
Function userHasRoleHaendler (Rolle As String) As Variant
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim aclEntry As NotesACLEntry
Dim eval As Variant
Dim varReturn2 As Variant
Dim varCompare As String
Dim Rolle2 As String
Dim Rolle3 As String, Rolle4 As String
Dim subString As String
On Error Goto userHasRoleError
Set db = session.currentDatabase
Rolle3 = "[" + Rolle + "]"
eval = Evaluate("@UserNamesList")
varReturn2 = Arraygetindex(eval, Rolle3)
If Isnull(varReturn2) Then
'Messagebox "nix Gefunden"
userHasRoleHaendler = False
Else
'Messagebox "gefunden"
userHasRoleHaendler = True
End If
On Error Goto 0
Exit Function
userHasRoleError:
userHasRoleHaendler = False
Msgbox "Fehler in userHasRoleHaendler: " & Cstr(Err) & ": " & Error$
Exit Function
End Function
-
Hi... mit Evaluates zu arbeiten ist immer eine unschöne Angelegenheit....
versuch mal diese Funktion:
Der Name ist etwas dumm gewählt, zumal die funktion ursprünglich etwas anderes gemacht hat :).
Die funktion funktioniert so....
Du gibst einen Username, die Db zum durchsuchen und eine Rolle an, die funktion gibt dir entweder "true" zurück wenn der User die Rolle hat, oder eben "false". Wenn du das in eine Schleife packst, kannst du damit auch mehrere User abarbeiten...
Function checkUserRoles (TheName As NotesName, Database As NotesDatabase, Byval RoleName As String) As Integer
Dim aclist As NotesACL
Set aclist = Database.acl
Dim entry As NotesACLEntry
Set entry = aclist.getEntry(TheName.Abbreviated)
If entry Is Nothing Then
Messagebox "Sie sind nicht als Benutzer dieser Anwendung eingetragen", 0 + 16, "Kein ACL Eintrag"
checkUserRoles = False
Exit Function
End If
Dim found As Integer
found = False
Forall r In entry.Roles
If r = "" Then
found = False
Elseif r = RoleName Then
found = True
End If
End Forall
checkUserRoles = found
End Function
ist vieleicht noch etwas verbesserungsbedürftig, aber besser als evaluate konstruktionen ;).
-
Deine Funktion ist nur brauchbar, wenn der betreffende User namentlich in der ACL steht, was wohl eher selten der Fall sein wird.
In der (üblichen) Praxis hilft sie also nicht weiter.
Evaluate ermöglicht den sauberen Aufruf dokumentierter Routinen, die in Notes eingebaut sind.
Bernhard
-
Hm... in der Tat :). Werde das bei Gelegenheit verbessern... und das nächste mal den Mund nicht so weit aufreißen ;)).
Aber Evaluates mag ich trozdem nicht.
-
Was stört Dich an Evaluate? Alle Nachteile, die das Teil früher mal hatte, wurden in R5 allmählich beseitigt und seit ca. 5.0.4 kannst Du davon ausgehen, dass Evaluate eine ganz saubere und elegante Variante ist, um etwas Notes-Spezifisch "berechnet" zu bekommen. Ich halte es für eine tolle Sache, insbesondere in ND6, wo die @Engine neu gebaut ist und absolut wunderschön läuft
-
Ich mag jetzt hier zwar keine Pro-/Contra-Evaluate-Debatte anzetteln, aber ... Evaluate sollte man dort einsetzen, wo es paßt oder massiv Code einspart (und damit die Performance steigert - @functions sind meist schneller).
Das Problem von nieke ist dafür geradezu ein Musterbeispiel: @UserNamesList liefert "at once" alles, was man wissen will - in einer Zeile. Will man selbiges mit LS nachbauen, wird das eine "längere" (vorsichtig ausgedrückt !) Geschichte, da man ja unter anderem aus nested groups usw. berücksichtigen muß oder "mindere Rechte überschreiben höhere Rechte - nicht aber bei namentlicher Nennung" u.a.
Beispiel: Ich will prüfen, ob der User die Rolle [Basic] hat.
Die Rolle hat in der ACL die Gruppe "AllStaff". In AllStaff stehen die Gruppen "Nord", "Süd" und "Mitte". In "Mitte" stehen die Gruppen "Mitte-Technik", "Mitte-Operations", "Mitte-Vertrieb" und "Mitte-Einkauf". In "Mitte-Technik" steht nun endlich der Name des aktuellen Users. Das muß ich mir jetzt aber merken, da der aktuelle User nochmal namentlich aufgeführt ist, dort aber nicht die Rolle [Basic] hat ...
Oder ich mach ein Evaluate von @UserNamesList ;-)
Bernhard
-
Genau, Bernhard, das ist 101% mein Standpunkt