Domino 9 und frühere Versionen > Entwicklung

HTTP Task laden

<< < (2/4) > >>

Christopher:
Sorry

Quelle: www.eknori.de

Die Klasse remoteConsole ermöglicht das Absenden von Konsolenkommandos über Lotus Script.
Als Beispiel hier der Befehl "sh user", der die momentan am Server angemeldeten Personen auflistet

Sub Click(Source As Button)
  Dim exec As String
  Dim dummy As Variant
  ' hier den eigenen Server eintragen
  Dim remConsole As New RemoteConsole ( "IhrServer" )
  ' welche Konsolenkommando ??
  exec = "sh user"
  'kein Kommando angegeben, dann beenden
  If exec = "" Then
    Exit Sub
  Else
    ' Kommando ausführen
    dummy =  remConsole.Execute(exec)
    ' Rückgabewert steht in dummy
    Msgbox dummy
  End If
End Sub

Den folgenden Code in den Deklarationsteil eines Buttons, Agenten oder einer Scriptbibliothek kopieren

Declare Function NSFRemoteConsole Lib "NNotes.dll" Alias "NSFRemoteConsole" (Byval Server As String, Byval cmd As String, ret As Long) As Long
Declare Function OSLockObject Lib "NNotes.dll" Alias "OSLockObject" (Byval Handle) As String
Declare Sub OSUnlockObject Lib "NNotes.dll" Alias "OSUnlockObject" (Byval Handle)
Declare Sub OSMemFree Lib "NNotes.dll" Alias "OSMemFree" (Byval Handle)

Class remoteConsole
  Private IsError As Variant
  Private rc As Integer
  Private hBuffer As Long
  Private Server As String
  Private Command As String
  Private Result As String
 
  Sub New(inpServer As String)
    Dim server As New NotesSession
    If inpServer = "" Then
      Me.IsError = True
    Else
      Me.server=inpServer
      Me.IsError = False
    End If
  End Sub
 
  Function Execute(inpCommand As String) As String
    If Me.Server = "" Then
      Exit Function
    End If
    If inpCommand = "" Then
      Me.execute="You must specify a command"
      Me.iserror = True
      Exit Function
    Else
      Me.command = inpCommand
    End If
   
    Me.rc = NSFRemoteConsole(Me.server, Me.command, hBuffer)
    If Me.rc <> 0 Then
      Me.iserror = True
      Me.result="Error returned " & _
      " from console [" & Cstr(rc) & "]"
    Else
      Me.result = OSLockObject(hBuffer)
      Call OSUnlockObject(hBuffer)
      Call OSMemFree(hBuffer)
      Me.Iserror = False
    End If
    Me.execute = Me.result
  End Function
End Class

Diehler:
Den oberen Teil versteh ich....
Aber den unteren Teil mit der Deklaration.... kannst mir des bitte a weng erklären. Ich programmier noch nicht lang in notes... danke

Diehler:
zudem, dass ich den 2 teil net kapier bekomm ich eine fehlermeldung:


Error returned from console[18865]

was bedeutet das?

Axel:
Hi,

ich vermute, du hast dir die Antwort weiter oben bereits selbst gegeben:


--- Zitat ---Ich habe selbst keinen Zugriff auf den Server. Das heißt ich kann nichts in die Console eingeben....

--- Ende Zitat ---

Wenn du keine Admin-Rechte für den Server hast, dann nutzt dir auch das Script nix.

Wenn dir der Admin keine Rechte einräumt, dann bitte ihn doch wenigstens den HTTP-Task zu starten und ihn so einzutragen, dass er automatisch mitgeladen wird.


Axel

Axel

Christopher:
Also bei mir funktioniert es. Hast Du den richtigen Server namen eingetragen?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete