Notesadministrationprocess.addgroupmembers

[dimat]

Всем привет.
Пытаюсь с помощью NotesAdministrationProcess добавить в группу пользователей:

Dim ns As New NotesSession
Dim ap As NotesAdministrationProcess
Set ap=ns.CreateAdministrationProcess(db.Server)
ni$=ap.AddGroupMembers(gn,peoples)

После выполнения создается запрос в admin4, однако, после того как задача проверит наличие новых запросов, в группе новых записей не появлется.
В чем может быть проблема?

 

[MAZ]

Попробуй проверить доступы на names.nsf - и у тебя и у сервера должен быть доступ не ниже редактора
+В ACL names.nsf проверить стоит ли тот Administration server

 

[dimat]

Попробуй проверить доступы на names.nsf - и у тебя и у сервера должен быть доступ не ниже редактора
+В ACL names.nsf проверить стоит ли тот Administration server

права у меня и у сервера максимальные, админ сервер стоит

 

[dimat]

Может есть еще какие то способы добавить имя в группу?

 

[nvyush]

Просто дописать в документ группы?..

 

[dimat]

Просто дописать в документ группы?..

Как вариант, только как правильнее добавить к существующему списку новую запись?

 

[nvyush]

Как вариант, только как правильнее добавить к существующему списку новую запись?

Можно тут глянуть, только с учётом, что в группе поле Members типа Names.
link removed
Добавлять имена пользователей нужно в канонической форме, при добавлении групп учитывать, что глубина вложений не должна быть более 6.

 

[dimat]

	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

Может условие входа как то по другому нужно записать?

 

[nvyush]

agri=NULL

"Хто так строит..."
If Isnull(argi) Then

 

[ToxaRat]

в названии группы случаем пробела нету?

 

[dimat]

в названии группы случаем пробела нету?

Нет, уже все получилось.
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)

Вот так сделал