LOTUSSCRIPT/COM/OLE CLASSES

Examples: AddServerToAddressBook method
This agent adds a record for SERVER2.ID to the Domino Directory on AceOne.

Sub Initialize
 Dim session As New NotesSession
 Dim reg As New NotesRegistration
 reg.RegistrationServer = "AceOne"
 reg.StoreIDInAddressBook = True
 Call reg.AddServerToAddressBook( _
 "c:\NotesAdministrator\server2.id", _ ' ID file
 "AceTwo/AceHardwareNE/AceHardwareCertifier", _ ' full name
 "AceHardware", _ ' server domain
 "AceHardware", _ ' server password
 "", _ ' network
 "Roberta Person/AceHardwareCertifier", _ ' administrator
 "Ace Two", _ ' title field
 "", _ ' location field
 "") ' comment field
End Sub

See Also