在Domino/Notes中实现ACL的复制作者：华中师范大学计算2003-01-23文章编号：000105提交人：阅读次数：346LotusDomino/Notes中的每一个数据库都有一个存取控制列表ACL，用来指定用户对此数据库的存取级别。ACL主要定义哪些人员可以以哪些方式（如读、写、新建、删除等）访问此数据库。ACL的正确设置对于整个应用系统的安全性是至关重要的，系统管理员应该严格设置ACL。问题的提出为了提升系统安全性，一般而言，开发者会在应用程序中创建角色。因此，在设置数据库的ACL时，系统管理员会为用户分配角色。在这些ACL中，虽然用户和角色都是一样的，但都需要逐个添加，这对系统管理员而言，将是一项大量的、重复性的工作。因此，有必要实现不同数据库之间ACL的复制。随之带来一个问题：当需要复制ACL的数据库较多时，复制时间过长，用户容易误会为“死机”或者以为已经复制完毕。如果能显示进度条则可以在一定程度上解决这个问题。问题的解决下面的LotusScript程序将具体解决这两个问题。假设数据库“A”的ACL已经设置好，20个需要复制ACL的数据库都放在Lotus\\Domino\\Data\\hszf这个目录下，服务器名称是dns，验证者名称是hszf，在一个导航器中设置一个按钮，命名为“开始复制”。按钮“开始复制”的声明部分为：DeclareFunctionNEMProgressBeginLib“nnotesws.dll”(ByvalwFlagsAsInteger)AsLongDeclareSubNEMProgressEndLib“nnotesws.dll”(ByvalhwndAsLong)DeclareSubNEMProgressSetBarPosLib“nnotesws.dll”(ByvalhwndAsLong，ByvaldwPosAsLong)DeclareSubNEMProgressSetBarRangeLib“nnotesws.dll”(ByvalhwndAsLong，ByvaldwMaxAsLong)DeclareSubNEMProgressSetTextLib“nnotesws.dll”(ByvalhwndAsLong，ByvalpcszLine1AsString，ByvalpcszLine2AsString)DeclareFunctionNSFDbCopyACLLib“nnotes.dll”(ByvalhsrcdbAsLong，ByvalhdestdbAsLong)AsIntegerDeclareFunctionNSFDbOpenLib“nnotes.dll”(ByvalpathnameAsString，hdbAsLong)AsIntegerDeclareFunctionNSFDbCloseLib“nnotes.dll”(ByvalhdbAsLong)AsInteger除此之外，还定义了一个函数CopyACL，用来将源数据库source的ACL复制到目的数据库dest的ACL中。SubCopyACL(sourceAsString，destAsString)’定义源、目的数据库的句柄DimhsrcdbAsLongDimhdestdbAsLong’打开源数据库source，返回句柄hsrcdbCallNSFDbOpen(source，hsrcdb)’打开目的数据库dest，返回句柄hdestdbCallNSFDbOpen(dest，hdestdb)’关闭源数据库sourceCallNSFDbCopyACLChsrcdb，hadestdbCallNSFDbClose(hsrcdb)’关闭目的数据库destCallNSFDbClose(hdestdb)EndSub下面是按钮的Click事件：SubClick(SourceAsNavigator)DimhwndAsLongDimiAsLongDimntitleAsStringDimtextAsStringDimstrAsString’提示用户复制开始Messagebox“复制开始”，0+48，“请注意：”’设置进度条的窗口句柄hwnd=NEMProgressBegin(1)’设置进度条的终点坐标值NEMProgressSetBarRangehwnd，21000’设置进度条上的标题文字ntitle=“20ACLsatall.”text=“aclsleft.”NEMProgressSetTexthwnd，ntitle，“20”+text’源、目的数据库的路径str=Curdrive$+“\\Lotus\\Domino\\Data\\hszf”Fori=1To1000’i代表进度条中相对于终点坐标的当前进度’提示用户要复制ACL的数据库的总数目以及尚未复制的数目NEMProgressSetTexthwnd，ntitle，“19”+text’显示当前进度NEMProgressSetBarPoshwnd，iNextCallCopyACL(str+“\\A.nsf”，str+“\\B.nsf”)Fori=1001To2000NEMProgressSetTexthwnd，ntitle，“18”+textNEMProgressSetBarPoshwnd，iNextCallCopyACL(str+“\\A.nsf”，str+“\\C.nsf”)……Fori=20001To21000NEMProgressSetTexthwnd，ntitle，“1”+textNEMProgressSetBarPoshwnd，iNextCallCopyACL(str+“\\A.nsf”，str+“\\D.nsf”)NEMProgressEndhwndMessagebox“复制结束”，0+48，“请注意:”EndSub至此，前面提出的问题得以解决，需要注意的是，系统管理员在不同数据库之间复制ACL之前，必须停止LotusDomino服务器的运行，并且只能在物理服务器上进行。