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

Who am I?

Feeds

Archives

April 2025 (1)
January 2025 (1)
December 2024 (1)
November 2024 (2)
October 2024 (2)
September 2024 (1)
July 2024 (1)
May 2024 (2)
April 2024 (3)
March 2024 (1)
February 2024 (2)
January 2024 (5)
December 2023 (3)
November 2023 (2)
October 2023 (1)
September 2023 (4)
June 2023 (1)
April 2023 (3)
March 2023 (1)
February 2023 (1)
July 2022 (1)
September 2021 (1)
August 2021 (2)
May 2021 (1)
February 2021 (3)
January 2021 (1)
November 2020 (1)
October 2020 (2)
September 2020 (2)
March 2020 (1)
November 2019 (1)
August 2019 (1)
July 2019 (1)
March 2019 (1)
December 2018 (1)
November 2018 (1)
October 2018 (1)
September 2018 (1)
May 2018 (1)
January 2018 (1)
December 2017 (1)
November 2017 (1)
September 2017 (1)
March 2017 (2)
February 2017 (5)
November 2016 (1)
September 2016 (4)
April 2016 (1)
March 2016 (7)
January 2016 (1)
December 2015 (1)
November 2015 (3)
August 2015 (1)
July 2015 (2)
June 2015 (5)
May 2015 (5)
March 2015 (3)
February 2015 (2)
January 2015 (4)
December 2014 (3)
November 2014 (1)
September 2014 (4)
August 2014 (1)
May 2014 (4)
April 2014 (1)
March 2014 (2)
February 2014 (3)
January 2014 (2)
October 2013 (1)
September 2013 (1)
August 2013 (2)
July 2013 (2)
March 2013 (2)
February 2013 (4)
January 2013 (3)
December 2012 (2)
November 2012 (1)
October 2012 (2)
September 2012 (4)
August 2012 (3)
July 2012 (1)
June 2012 (6)
May 2012 (1)
February 2012 (2)
January 2012 (1)
December 2011 (4)
November 2011 (2)
September 2011 (1)
May 2011 (2)
March 2011 (1)
January 2011 (1)
November 2010 (5)
October 2010 (2)
September 2010 (2)
August 2010 (1)
July 2010 (3)
June 2010 (1)

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.