Hallo,
ich möchte gerne per Lotusscript Kommandobefehle ausführen.
Leider klappt das nur bedingt:
Show Tasks >C:\WINDOWS\TEMP\rem40327.con
29.10.2008 12:17:47 Remote console command issued by Dev/Test/DE: Show Tasks
29.10.2008 12:17:47 Agent printing: sRespondMSG: 0
Es steht zwar da, dass der Befehl "Show Tasks" heißt, aber wirklich ausgeführt wird er nicht, da ja keine Auflistung der Tasks angezeigt wird!
Declare Function NSFRemoteConsole Lib NOTES_DLL ( Byval sServername As String, Byval sCommand As String, hResponse As Long ) As Long
Private Sub main()
'========================================
...
While it.hasNExtElement
sCommand = it.nextElement
lResult = Me.lSendConsoleCommandLessThanN6( nnServer.Abbreviated, sCommand, False, sRespondMSG )
Print "sRespondMSG: " + sRespondMSG' Wird in der Konsolenausgabe ausgegeben
Wend
End Sub
Private Function lSendConsoleCommandLessThanN6( psServer As String, psCommand As String, pbWithResponse, psRetResponse As String) As Long
'========================================
'sendet an psServer das Command psCommand
'nur unter Windows lauffähig: wegen CopyMemory
Dim hBuffer As Long
Dim lStatus As Long
Dim sResponse As String
lStatus = NSFRemoteConsole( psServer, psCommand, hBuffer )
psRetResponse = Cstr(lStatus)
End Function
Weiß jemand weiter?
Liebe Grüße
Giordano