Domino Admin管理客户机中为每个管理域设置不同的图标

大家好,才是真的好。

一直在讲Domino管理中的单个网络 域,很少讲到多个Domino网络域的管理。其实,很多企业会有多个Domino网络域。因为以前多个部门或组织、企业等合并,或者隔离国内和国外的目录隔开等等,都会产生多个names.nsf目录,产生多网络域环境。

在这种环境下,我们在进行不同的网络域管理时,一般都是通过Domino Admin管理客户机中的网络域图标来切换实现,如下图:
在这里插入图片描述
看起来是不是一模一样,很难区分?

所以,很多管理员在苦苦思索,如何通过不同的图标的方式来实现快速切换?

嗯,国外有个哥们在此方面进行了研究,而且乐此不彼,一直研究出来为止,效果如下图:
在这里插入图片描述
我们不卖关子,直接上答案:该图标存在于Domino Admin管理客户机的bookmark.nsf数据库中,你可以用Designer客户机打开该数据库,找到AdminBookmarkOrder大纲,编辑一下,如下图:
在这里插入图片描述
然后将你上传的图标上传即可,如下图:
在这里插入图片描述
重新启动一下Domino Admin客户机,即可看到网络域图标变成你指定的图片了。

当然如果你不想手动编辑的话,也没关系,可以采用下面的代码来进行更新:

%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

不过,这里也有一个不太好的消息,就是如果你尝试在Domino Admin中更新服务器列表时,该图标会消失。好在你可以用代码很快地再写回来。

还有一个好消息,如果你使用Domino 14版本,有个管理中心数据库Admin Central,它会每个域创建不同的数据库图标。

该技术文档原文地址:https://blog.thomashampel.com/blog/tomcat2000.nsf/dx/admin-client-custom-icons-for-each-domain.htm

欢迎阅读。

今天我们就讲到这里吧。更多文章可关注微信公号:协作者

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值