LOTUSSCRIPT /COM/OLE のクラス

例:IsCertificateAuthorityAvailable プロパティ
次の例では、John Good という名前のユーザーを John Goode に変更する要求が送信されます。CA プロセス「\casco」が使用できる場合、そのプロセスが使用されます。それ以外の場合は、認証者 ID が使用されます。

Sub Initialize
 Dim session As New NotesSession
 Dim adminp As NotesAdministrationProcess
 Set adminp = _
 session.CreateAdministrationProcess("bay/casco")
 If adminp.IsCertificateAuthorityAvailable = True Then
   adminp.CertificateAuthorityOrg = "\casco"
   adminp.UseCertificateAuthority = True
   noteID$ = adminp.RenameNotesUser("CN=John Good/O=casco", _
   "Goode")
   Messagebox noteID$, , "Renaming request made using CA process"
 Else
   adminp.CertifierFile = "C:\Lotus\Domino\Data\cert.id"
   adminp.CertifierPassword = "My1Pswd"
   noteID$ = adminp.RenameNotesUser("CN=John Good/O=casco", _
   "Goode")
   Messagebox noteID$, , "Renaming request made using certifier id"
 End If
End Sub

関連項目