例: AddGroupMembers method

次のエージェントは、4 人のメンバーが所属する「Guys」というグループを追加する要求を作成します。グループがすでに存在する場合、メンバーが追加されます。

Sub Initialize
 Dim session As New NotesSession 
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess("Software_Server") 
  Dim guys(4) As String 
  guys(0) = "Admin Guy"
  guys(1) = "Car Guy"
  guys(2) = "Motorcycle Guy"
  guys(3) = "Other Guy"
  noteid$ = adminp.AddGroupMembers("Guys", guys)
  If noteid$ <> "" Then
    Dim db As New NotesDatabase("Software_Server", "admin4")
    Dim ws As New NotesUIWorkspace
    Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
  End If
End Sub