例: SendConsoleCommand method

次のエージェントは、コンソールコマンドをサーバーに送ります。

%INCLUDE "lsxbeerr.lss"

Sub Initialize
  Dim session As New NotesSession
  serverName$ = "mjr"
  consoleCommand$ = Inputbox$("Type command:", _
  "Send console command")
  consoleReturn$ = session.SendConsoleCommand( _
  serverName$, consoleCommand$)
  Messagebox consoleReturn$,, consoleCommand$
End Sub