Windows-Zwischenablage von AS/400

[KM]

Hallo Seppi,

wie wäre es mit folgendem VBScript ?

strCopy = "This text has been copied to the clipboard."
With CreateObject("Scripting.FileSystemObject")
  With .CreateTextFile("Child.vbs")
    .WriteLine "CreateObject(""WScript.Shell"").SendKeys ""^c{ENTER}"""
    .Close
  End With
  CreateObject("WScript.Shell").Run "Child.vbs"
  Dummy = InputBox("","" , strCopy)
  .DeleteFile "Child.vbs"
End With

Gruß,
KM

[Seppi]

Hallo KM

Super, deine Lösung. Hab schnell ein Script erstellt und es funktioniert. Jetzt bau ich das in mein CL ein und rufe das ganze mit STRPCCMD auf. Melde mich, sobald es funktioniert.

Vielen Dank.
Gruss
Sepp

[Seppi]

Hallo KM
Es funktioniert super. Vom RPG über ein CL und danach mit STRPCCMD dein Script und das übergebene Feld ist in der Zwischenablage.
Auf dem Bildschirm ist jetzt nur noch ein kurzes flackern.
Vielen Dank nochmals. Hast mir sehr geholfen.
Gruss
Sepp