Examples: DeleteReplicas method

This agent enters a request to delete Guys1.nsf on Software_Server and all its replicas.

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