Sub Initialize
   Set session = New NotesSession      'obtain a new NotesSession object
   Dim ws As NotesUIWorkspace
   Dim adminP As NotesAdministrationProcess
   Set adminP = session.CreateAdministrationProcess( "Software_server" )

   ' set variables for internet certificate and certifierID
   Dim certDate As NotesDateTime
   Set certDate = New NotesDateTime( "Today" )
   Call certDate.AdjustDay( 5 )
   Dim noteID As String
   Dim certID As String
   certID = "d:\\NotesAdministrator\AdminID.id"

   ' set variables for username and keyring
   Dim username As String
   username =  "Amy Andrews/Sales"
   Dim keyRing As String
   keyRing = "d:\\NotesAdministrator\keyfile.kyr"
   Dim keyRingFilePW As String

   Dim useCA As Boolean
   useCA = False
   Dim certOrg As String
   certOrg="/APCABE"

   Set adminP.CertificateExpiration =  certDate
   If useCA Then
       If adminP.IsCertificateAuthorityAvailable Then
           adminP.CertificateAuthorityOrg = certOrg
           adminP.UseCertificateAuthority = True
       End If
   Else
       adminP.CertifierFile = certID
       adminP.CertifierPassword = InputBox$("Enter certification password")
       adminP.UseCertificateAuthority = False
   End If

   keyRingFilePW = InputBox$("Enter the key ring file password")
   noteID = adminP.AddInternetCertificateToUser(username,keyRing,_
keyRingFilePW)
End Sub
関連項目

AddInternetCertificateToUser メソッド

用語集