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

在集群环境中如何用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属性获取当前所在的服务器 注意:该样例仅供参考。