例: SetUserPasswordSettings method

次のコードは、ユーザー Sally Mae のユーザーレコードの [管理] タブにあるパスワード管理設定を変更するシステム管理要求を次のとおりに作成します。

パスワードが ID をロックアウトするよう設定されていることを確認します。
必須変更間隔は 5 日間に設定されます。
猶予期間は 9 日間に設定されます。

[次のサインインでインターネットパスワードを変更] チェックボックスは選択されないままです。

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  session.CreateAdministrationProcess("myServer/Northeast")
  noteid$ = adminp.SetUserPasswordSettings( _
  "CN=Sally Mae/O=Northeast", PWD_CHK_LOCKOUT, 5, 9, False)
  If noteid$<> "" Then
    Dim db As New NotesDatabase("myServer/Northeast", "admin4.nsf")
    Dim ws As New NotesUIWorkspace
    Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
  End If
End Sub