Admin Client - custom icons for each domain?
Thomas Hampel
10 June 2023When 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?
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"
to select the image of your choice
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
Tagged with: Administration Development