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