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\cert.id" reg.Expiration = dt Call reg.Recertify( _ "c:\NotesAdministrator\jyip.id", _ ' ID file "AceHardware", _ ' certifier password "") ' comment field End Sub
See Also