例: CrossCertify method

次のエージェントは、JYIP.ID と 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