Domino 9 und frühere Versionen > Entwicklung

Benutzerrollen in L.Script abfragen

<< < (3/3)

robertpp:
Na dann mach ich das so wenn der user in einer Gruppe steht!!!! ;D ;D ;D ;)

eknori:
Dann lass uns das gleich mal in eine Funktion reinpacken

Function UserHasRole ( role As String ) As Variant
   UserHasRole = False   
   Dim varACLRoles As Variant
   varACLRole = Evaluate( |@IsMember("| & role & |"; @UserRoles)| )
   If varACLRole(0) <> 0 Then
      UserHasRole = True
   End If
End Function

die läßt sich dann schön mittels

Sub Click(Source As Button)
   Msgbox UserHasRole ( "[DB-ADMIN]" )
End Sub

aufrufen

koehlerbv:
Ulrich, hast Du Option Declare nicht gesetzt ?  ;-)

Dim varACLRoles As Variant
varACLRole = ....

;-)
Bernhard

ata:
... in einigen Anwendungen habe ich mir angewöhnt für jeden User ein Profildokument anzulegen. In ein Listenfeld trage ich die Rollen des Users ein. Damit ist es mir möglich jederzeit über alle Rollenzugehörigkeiten informiert zu sein => sehr nützlich bei Supportanfragen - aber es lässt sich auch sonst überall verwenden...

ata

eknori:

--- Zitat von: koehlerbv am 04.09.03 - 13:29:23 ---Ulrich, hast Du Option Declare nicht gesetzt ?  ;-)

Dim varACLRoles As Variant
varACLRole = ....

;-)
Bernhard

--- Ende Zitat ---

upps, *schäm* ; aber das macht den Code natürlich noch einmal eine Zeile schlanker; das Dim kannst du ja dann auch weglassen  ;D

Navigation

[0] Themen-Index

[*] Vorherige Sete