Список пользователей

[Chron]

Всем привет... Возникла такая задача - необходимо узнать число уникальных пользователей, включенных в ACL базы, и соответственно сам их список... То есть в ACL базы могут присутствовать как группы, так и отдельные пользователи; в разных группах могут одни и те же пользователи (согласен, возможно это неправильно, но все же предположим)... Вот мне и необходимо узнать количество уникальных пользователей и из список... Заранее благодарю за идеи...

 

[Kizarek86]

Dim DB as new NotesDatabase("server","dbpath")
Dim ACL As NotesACL
Dim aclentry As NotesACLEntry

Set ACL 		= DB.ACL
Set aclentry 	= ACL.GetFirstEntry

While Not aclentry Is Nothing
'Нужные параметры aclentry смотрите в Хелпе 
Set aclentry = ACL.GetNextEntry(aclentry)
Wend

По группам правда придется побегать, чтобы вынуть всех пользователей.
Стандартных функций вроде нету, поэтому таскайте документы из names.nsf

	Set COLL = DB.Search({Form="Group" & ListName = "Имя группы"},Nothing,1)

Только не забудьте что группы вложенными могут быть)

 

[nvyush]

Перебираете ACLEntry, разворачиваете группы @ExpandNameList, складываете в массив. На LS можно нарваться на переполнение массива, поэтому я бы делал на Jave.

Добавлено
Кстати, @ExpandNameList тоже, наверное, может переполниться, так что надёжнее группы то же самому разворачивать.

 

[Kizarek86]

Перебираете ACLEntry, разворачиваете группы @ExpandNameList, складываете в массив. На LS можно нарваться на переполнение массива, поэтому я бы делал на Jave.

Ну если пользователей не много, можно сразу в List складывать)

 

[Medevic]

Берёшь всех пользователей и каждому делаешь notesDatabase.QueryAccess

 

[ToxaRat]

Берёшь всех пользователей и каждому делаешь notesDatabase.QueryAccess

есть что-то в это особено если косается Defaulta

 

[Medevic]

есть что-то в это особено если косается Defaulta

Ну дык. К тому в ACL могут быть записи типа */East/Acme/US. Простым раскрытием групп здесь не обойдешься.