Create a smart icon with this formula for quick admin functions in Lotus Notes Client.
ll:=
"Add Local DB Icon":
"Remote Console":
"Register User":
"ID File Examine":
"Cross Certify ID File":
"Certify":
"New Organization":
"New OrgUnit":
"Register Server":
"Register From File":
"Trace Connection":
"Mail Forward";
x:=@Prompt([OKCANCELLIST]:[NoSort];"Quick Admin";"Liste: ";@Subset(ll;1);ll);
tmp:=@If(x="";@Return("");"");
p:=@Member(x;ll);
@If(
p=1;@Command([AddDatabase];"":@Prompt([LOCALBROWSE]:
1;NoSort];"Add Local DB Icon";"Select DB";"";"";"3"));
p=2;@Command([AdminRemoteConsole]);
p=3;@Command([AdminRegisterUser]);
p=4;@Command([AdminIDFileExamine]);
p=5;@Command([AdminCrossCertifyIDFile]);
p=6;@Command([AdminCertify]);
p=7;@Command([AdminNewOrganization]);
p=8;@Command([AdminNewOrgUnit]);
p=9;@Command([AdminRegisterServer]);
p=10;@Command([AdminRegisterFromFile]);
p=11;@Command([AdminTraceConnection]);
p=12;@Command([MailForward]);
"")
This was first published in April 2002