Domino 9 und frühere Versionen > Entwicklung

Benutzerrollen in L.Script abfragen

(1/3) > >>

mrx:
Hallo,

kann mir jemand sagen wie ich in Lotus Script abfragen kann ob der aktuelle Benutzer mitglied einer bestimmten Rolle ist oder nicht?

Also quasi die @IsMember bzw. @IsNotMember funktion nur halt in Lotus Script.

Gruß
Malte.

koehlerbv:
Bevor Du Dir 'nen Wolf programmierst: Nimm' Evaluate.

Bernhard

eknori:
mal schnell zusammengezimmert

Sub Click(Source As Button)
   Dim roles As Variant
   
   roles = Evaluate("@UserRoles")
   
   flag = False
   
   Forall r In roles
      If Cstr(r) = "[Support]" Then flag = True
   End Forall
   
   If flag = True Then
      Messagebox "Yip !!", 0+64+0+0,"Error"
   End If
End Sub

robertpp:
Bitte schön:
   Dim s As New NotesSession
   Dim userName As New NotesName(s.UserName)
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Dim entry As NotesACLEntry
   Set db = s.CurrentDatabase
   Set acl = db.ACL
   user2 = username.Abbreviated
   Set entry = acl.GetEntry(user2)
   
   
   If Not entry Is Nothing Then
      If  Entry.IsRoleEnabled("[admin]" ) Then
         continue = True
      Else
         Messagebox "Sie dürfen keine Dokumente löschen. ", 0, "Fehler"
         continue = False
         
      End If
   End If

robertpp:
Da ist mir eknori zuvor gekommen!!! ;D ;) :D

Navigation

[0] Themen-Index

[#] Nächste Seite