LOTUSSCRIPT/COM/OLE CLASSES

Examples: CrossCertify method
This agent cross-certifies JYIP.ID with CERTNE.ID.

Sub Initialize
 Dim session As New NotesSession
 Dim reg As New NotesRegistration
 dt = Datenumber(Year(Today)+1, Month(Today), Day(Today))
 reg.RegistrationServer = "AceOne"
 reg.CertifierIDFile = "c:\NotesAdministrator\certNE.id"
 reg.Expiration = dt
 Call reg.CrossCertify( _
 "c:\NotesAdministrator\jyip.id", _ '  ID file
 "AceHardware", _ ' certifier password
 "") ' comment field
End Sub

See Also