LOTUSSCRIPT /COM/OLE のクラス

例:CertifierFile プロパティ
次の例では、現在のユーザーに対し、ユーザーの階層名を入力するよう求められます。次に、指定された階層名の組織名に基づいて、ユーザー名を変更するのに使用する認証者ファイルが選択されます。最後に、指定されたユーザー名からミドルネームのイニシャルを削除するシステム管理要求が送信されます。

Sub Initialize
 Dim session As New NotesSession
 Dim adminp As NotesAdministrationProcess
 Dim ws As New NotesUIWorkspace
 Dim certFile As String
 Dim userName As Variant
 Dim posOfFirst As Long
 Set adminp = _
 session.CreateAdministrationProcess("myServer/northeast")
 userName = ws.Prompt(PROMPT_OKCANCELEDIT, _
 "User to rename", _
 "Enter the hierarchical name of the user name you want to change")
 Forall group In session.UserGroupNameList
   oName$ = group.Organization
 End Forall
 posOfFirst = Instr(userName, oName$)
 If posOfFirst <> 0 Then
   adminp.CertifierFile = _
   "C:\lotus\domino\data\cert.id"
 Else
   adminp.CertifierFile = _
   "C:\lotus\notes\data\software-cert.id"
 End If
 adminp.CertifierPassword = _
 ws.Prompt(PROMPT_PASSWORD, _
 "Password", "Type certifier password")
 noteid$ = adminp.RenameNotesUser(userName,"*","*","")
 If noteid$<> "" Then
   Messagebox "Request submitted",,"Success"
 End If
End Sub

関連項目