%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 メソッド

用語集