LOTUSSCRIPT/COM/OLE CLASSES

Examples: MoveReplica method
This agent moves Guys1.nsf from Company_Server to Software_Server.

Sub Initialize
 Dim session As New NotesSession
 Dim adminp As NotesAdministrationProcess
 Set adminp = _
 session.CreateAdministrationProcess("Software_Server")
 adminp.CertifierFile = _
 "c:\lotus\notes\data\software-cert.id"
 Dim ws As New NotesUIWorkspace
 adminp.CertifierPassword = _
 ws.Prompt(PROMPT_PASSWORD, "Password", _
 "Type certifier password.")
 noteid$ = adminp.MoveReplica("Company_Server", _
 "Guys1", _
 " Software_Server")
 If noteid$ <> "" Then
   Dim db As New NotesDatabase("Software_Server", "admin4")
   Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
 End If
End Sub

See Also