用ls修改数据库的存取控制列表

[天天888]

新建数据库后，我现在能使用ls设置dafault用户的acl,并能新增列表，不过如果已设置的列表怎么修改呀？还有如果我要删除某个人的acl，ls怎么做？

[暴风雪]

原帖由 天天888 于 2006-9-14 01:16 AM 发表
新建数据库后，我现在能使用ls设置dafault用户的acl,并能新增列表，不过如果已设置的列表怎么修改呀？还有如果我要删除某个人的acl，ls怎么做？

可以用如下代码的NotesACL class的getentry function来获得某个特定的acl项，也可以用GetFirstEntry，GetNextEntry...，然后就可以用NotesACLEntry提供的各种属性和方法对其进行修改和删除的操作了，具体的使用方法楼主可以查找帮助里面的NotesACL class和NotesACLEntry class的用法。

Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry( "testname1" )