在集群环境中如何用LotusScript获取当前服务器

最新推荐文章于 2020-05-14 10:55:32 发布

最新推荐文章于 2020-05-14 10:55:32 发布 · 162 阅读

文章标签：

本文介绍如何在LotusDominoDesigner环境下使LotusScript程序具备失效转移功能。具体方法是利用NotesSession对象获取当前数据库所在服务器，并通过NotesDatabase对象的Server属性确定实际运行的服务器。

在集群环境中如何用LotusScript获取当前服务器
环境	产品: Lotus Domino Designer 平台: 平台无关版本: 5.x, 6.x
问题	在集群环境中, 当其中一台服务器没有响应时, 因为失效转移的作用, 用户会被转移到集群中的另一台服务器上。如果我们在编写程序时在LotusScript中直接指定了服务器的名称, 则该程序不具有失效转移的功能。比如有服务器A和B在同一集群中, 程序中指定了打开A服务器上的数据库, 当A服务器没有响应时,虽然用户会被转移到B服务器上, 但是程序仍然会尝试打开A服务器上的数据库。
解答	为了让LotusScript程序具有失效转移功能, 可以使用以下方法获取程序当前所在的服务器: Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Dim db2 As NotesDatabase Set db2 = New NotesDatabase(db.Server, "db_name") '此处通过NotesDatebaase的server属性获取当前所在的服务器注意:该样例仅供参考。