Super Smarticon

this code, in a smarticon, is an invaluable tool for administrators.

Note: To use the Switch ID function, you must have a place where you keep
backup copies of created ID's.

You also need to create a new database and place the agents listed below into
it, I use 2 custom navigators to make the screen look more professional when
"Check Groups" and "Switch ID" are used, they are not needed.
Smarticon Code.
--------------------------------------------------------------------------------
-----------
Person := "";
ID := "";
Name := "";
sA := "";
Access := "";
Roles := "";
Data := "";
Line = "";
Server :="Your Server";
Database := "Your Database";

list := "Check Groups":"Anon E-Mail":"Switch ID":"Open Another Mailfile":"My
Access";
member := @Prompt([OKCANCELLIST]:[NoSort]; "Admin Choice"; "Select an Option";
""; list);

@If(member = "Check Groups";@Do(
@SetEnvironment("GroupName";@PickList([Name]:[Single]));
@Command([FileOpenDatabase]; Server:Database ; "Custom Display Navigator, just
for show";"1" );
@Command( [ToolsRunMacro];"ShowGroups");
@Command([FileCloseWindow]));
@If(member = "Anon E-Mail";@Do(
@Command([FileOpenDatabase]; Server:Database ; "Untitled" );
@Command( [ToolsRunMacro];"Anon Mail");
@Command([FileCloseWindow]));
@If(member = "Open Another Mailfile"; @Do(
@Command([FileOpenDatabase]; Server:Database ; "Untitled" );
@Command( [ToolsRunMacro];"OpenMail");
@Command([FileCloseWindow]));
@If(member = "My Access";@Do(
@Set("sA";@Subset(@UserAccess( @DbName );1));
@Set("Access";
@If(sA="1";"Depositor";sA="2";"Reader";sA="3";"Author";sA="4";"Editor";sA="5";"D
esigner";sA="6";"Manager";""));
@Set("Data";@DbTitle);
@Set("Roles"; @If(@UserRoles="";"None Set";@UserRoles));
@Prompt([OK];"Database Name = "+@DbTitle+ " : Server =
"+@DbName;"Your Name =" + @Name([CN] ; @UserName) +
@Char(13)+@Char(10)+@Char(13)+@Char(10)+"Your Access Level =
"+Access+@Char(13)+@Char(10)+@Char(13)+@Char(10)+"Roles set for you =
"+Roles+"." ));
@If(member = "Switch ID";@Do(
@Set("Person";@PickList( [Name]:[Single]) );
@Set("ID";@Name([OU2];Person));
@SetEnvironment("Name1";ID);
@Set("Name";@Name([CN];Person));
@SetEnvironment("Name2";Name);
@Command([FileOpenDatabase]; Server:Database ; "Custom Display
Navigator, just for show";"1" );
@Command( [ToolsRunMacro] ; "IDSwitch" );
@Command([FileCloseWindow]));NULL)))))


the macros are as follows

--------------------------------------------------------------------------------
------------------------------------------
"ShowGroups" (Agent in Your Database on Your Server)

replace 00000000:00000000 with the Replica ID of your Main Address book


REM "Groups can be nested up to a maximum of 6 levels";
UserName := @Environment("GroupName") ;
ColumnList
:=@ReplaceSubstring(@DbColumn("":"";"00000000:00000000";"($ServerAccess)";1);"
";"+");
temp :=@DbLookup("":"";"00000000:00000000";"($ServerAccess)";UserName;2);
MemberList1 := @If(!@IsError(temp);temp;"");
LU
:=@ReplaceSubstring(@Explode(@Implode(@Keywords(ColumnList;@ReplaceSubstring(Mem
berList1;" ";"+"));"|");"|";0);"+";" ");
@Set("temp";@DbLookup("":"";"00000000:00000000";"($ServerAccess)";LU;2));
MemberList2 := @If(!@IsError(temp) & LU !="";temp;UserName);
@Set("LU";@ReplaceSubstring(@Explode(@Implode(@Keywords(ColumnList;@ReplaceSubst
ring(MemberList2;" ";"+"));"|");"|";0);"+";" "));
@Set("temp";@DbLookup("":"";"00000000:00000000";"($ServerAccess)";LU;2));
MemberList3 := @If(!@IsError(temp) & LU !="";temp;UserName);
@Set("LU";@ReplaceSubstring(@Explode(@Implode(@Keywords(ColumnList;@ReplaceSubst
ring(MemberList3;" ";"+"));"|");"|";0);"+";" "));
@Set("temp";@DbLookup("":"";"00000000:00000000";"($ServerAccess)";LU;2));
MemberList4 := @If(!@IsError(temp) & LU !="";temp;UserName);
@Set("LU";@ReplaceSubstring(@Explode(@Implode(@Keywords(ColumnList;@ReplaceSubst
ring(MemberList4;" ";"+"));"|");"|";0);"+";" "));
@Set("temp";@DbLookup("":"";"00000000:00000000";"($ServerAccess)";LU;2));
MemberList5 := @If(!@IsError(temp) & LU !="";temp;UserName);
@Set("LU";@ReplaceSubstring(@Explode(@Implode(@Keywords(ColumnList;@ReplaceSubst
ring(MemberList5;" ";"+"));"|");"|";0);"+";" "));
@Set("temp";@DbLookup("":"";"00000000:00000000";"($ServerAccess)";LU;2));<
This was first published in November 2000

Dig deeper on Domino Resources - Part 6

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close