Notesadministrationprocess.addgroupmembers

dimat

Lotus team
31.07.2008
516
0
#1
Всем привет.
Пытаюсь с помощью NotesAdministrationProcess добавить в группу пользователей:

Код:
Dim ns As New NotesSession
Dim ap As NotesAdministrationProcess
Set ap=ns.CreateAdministrationProcess(db.Server)
ni$=ap.AddGroupMembers(gn,peoples)
После выполнения создается запрос в admin4, однако, после того как задача проверит наличие новых запросов, в группе новых записей не появлется.
В чем может быть проблема?
 
M
#2
Попробуй проверить доступы на names.nsf - и у тебя и у сервера должен быть доступ не ниже редактора
+В ACL names.nsf проверить стоит ли тот Administration server
 

dimat

Lotus team
31.07.2008
516
0
#4
Может есть еще какие то способы добавить имя в группу?
 

nvyush

Lotus team
22.04.2009
2 317
0
#7
Как вариант, только как правильнее добавить к существующему списку новую запись?
Можно тут глянуть, только с учётом, что в группе поле Members типа Names.
Как правильнее изменять значения поля типа Authors?
Добавлять имена пользователей нужно в канонической форме, при добавлении групп учитывать, что глубина вложений не должна быть более 6.
 

dimat

Lotus team
31.07.2008
516
0
#8
Код:
	For i%=1 To Ubound(peoples)
argi=Arraygetindex(group.GetItemValue("members"),peoples(i%))
If argi=Null Then
Call group.ReplaceItemValue("members",Arrayappend(group.GetItemValue("members"),peoples(i%)))
Print peoples(i%) & " Added in "& gn
End If
Next
Call group.Save(True,False)
Сделал вот так, но почему то не выполняется, хотя в дебагере показывает что agri=NULL
Код:
Call group.ReplaceItemValue("members",Arrayappend(group.GetItemValue("members"),peoples(i%)))
Print peoples(i%) & " Added in "& gn
Может условие входа как то по другому нужно записать?
 

dimat

Lotus team
31.07.2008
516
0
#11
в названии группы случаем пробела нету?
Нет, уже все получилось.
nvy Спасибо:).
Код:
	For i%=1 To Ubound(peoples)
argi=Arraygetindex(group.GetItemValue("members"),peoples(i%))
If Isnull(argi) Then
Call group.ReplaceItemValue("members",Arrayappend(group.GetItemValue("members"),peoples(i%)))
Print peoples(i%) & " Added in "& gn
End If
Next
Call group.Save(True,False)
Вот так сделал