例: SwitchToID method

次のエージェントは、USER.ID に切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim reg As New NotesRegistration
  reg.RegistrationServer = "AceOne"
  Call reg.SwitchToID("user.id", _ ' ID file
  "AceHardware") ' ID password
End Sub