例: RenameGroup method

次のエージェントは、「Guys」グループを「GuysAndDolls」というグループ名に変更する要求を入力します。

Sub Initialize
  Dim session As New NotesSession 
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess("Software_Server") 
  noteid$ = adminp.RenameGroup("Guys", "GuysAndDolls") 
  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