Personal Blog of Thomas Hampel - Creative Mythbusting in Development and Collaboration

Who am I?

Feeds

Admin Client - custom icons for each domain?

Thomas Hampel
 10 June 2023

When you have to manage multiple Domains in your Admin client, finding the right domain
This example here is just showing two Domino Domains, but there are admins out there with 100+ domains to manage.
Maybe you want some custom icons then?


Image:Admin Client - custom icons for each domain?  Image:Admin Client - custom icons for each domain?

Those icons displayed on the left side are nothing else than an Outline stored in the bookmark.nsf application on your client.
Of course you could edit the design manually:

First you need to upload the preferred icon image as an image resource, then you can edit  the Outline called "AdminBookmarkOrder"


Image:Admin Client - custom icons for each domain?

to select the image of your choice

Image:Admin Client - custom icons for each domain?
Even better if you can do this with a small script:




%REM

     Created Jun 10, 2023 by Thomas Hampel

     Description: Comments for Agent

%END REM

Option
Public
Option
Declare

Sub
Initialize
     
Dim s As New NotesSession
     
Call SetAdminBookmarkImage ("INTERN", "HCL Domino_Color_Icon_32.png")
End
Sub



%REM

     Function AdminBookmark

     Description: Comments for Function

%END REM

Function
SetAdminBookmarkImage (DomainName As String, ImageName As String) As Boolean
     
Dim outline As NotesOutline
     
Dim oe As NotesOutlineEntry
     SetAdminBookmarkImage =
False
     
     
'# open Bookmarks.nsf locally
     
Dim db As New NotesDatabase ("", "bookmark.nsf")
     
     
If Not db.isopen Then
             
Print "Unable to open bookmark.nsf"
             
Exit function
     
End If
     
     
'# get Outline
     
Set outline = db.GetOutline("AdminBookmarkOrder")
     
Set oe = outline.GetFirst()

     
'# first Outline entry level (must) have label "($Admin)"
     
If oe.Label = "($Admin)" Then
             
'# step one level down
             
Set oe = outline.Getchild(oe)
             
             
'# loop all children
             
While Not oe Is Nothing

                     
If (oe.Label = DomainName$) Then
                             
'# set imageName
                             
Print "Changing bookmark icon image of " & oe.label & " to " & ImageName$
                             oe.Imagestext = ImageName$
                             
Call Outline.Save()
                     
End If
                     
                     
Set oe = outline.Getnextsibling(oe)
             
Wend
             
     
End If
     
     SetAdminBookmarkImage =
true
End
Function


The Bad News:

Your customizations will disappear when you refresh the list of servers.

Good news:

1. In Domino V14 you'll have
Admin Central, a new Domino application to manage your environment, where each Domain will be one database icon on your workspace
2. After refreshing the list of servers you could just run the script again.


References:

AdminClientDomainBookmarkIcon.lss
Comments [0]
Go ElsewhereSubscribe to RSSAboutStay ConnectedAnd More
Thomas Hampel, All rights reserved.