在集群环境中如何用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属性获取当前所在的服务器

注意:该样例仅供参考。

 
 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值