%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

関連項目

SendConsoleCommand メソッド

用語集