DominoArea.org [Archive]

Source : kbase de lotus

ServerName := "<Enter your server name here>";
GroupName := @PickList([Name]:[Single]);
tmpMembers := @DbLookup("":"NoCache"; ServerName:"NAMES.NSF"; "Groups"; GroupName; "Members");
@If(@IsError(tmpMembers); @Failure(GroupName+" is not a valid group"); @Success);
tmpTest := @IsMember(@Name([CN]; @UserName);@Name([CN]; tmpMembers));
@If(tmpTest;@Prompt([OK]; "Lotus Notes"; @Name([CN]; @UserName)+" is a member of the "+GroupName+" group."); @Prompt([OK];"Lotus Notes"; @Name([CN]; @UserName)+" is not a member of the "+GroupName+" group."))

J'ai fait une petite modification. Maintenant on peut rechercher sur une personne précise plutôt que sur le @username !

Code : Tout sélectionner

ServerName := "SERVEUR";

PeopleName := @PickList([Name]:[Single]);
GroupName := @PickList([Name]:[Single]);

tmpMembers := @DbLookup("":"NoCache"; ServerName:"NAMES.nsf"; "Groups"; GroupName; "Members");

@If(@IsError(tmpMembers); @Failure(GroupName+" n'est pas un groupe valide"); @Success);

tmpTest := @IsMember(@Name([CN]; PeopleName);@Name([CN]; tmpMembers));

@If(tmpTest;@Prompt([Ok]; "Lotus Notes"; @Name([CN];  PeopleName)+" est membre du groupe "+GroupName); @Prompt([Ok];"Lotus Notes"; @Name([CN];  PeopleName)+" n'est pas membre du groupe "+GroupName))