Examples: CreateReplica method (NotesAdministrationProcess - LotusScript)

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