Hallo Seppi,

wie wäre es mit folgendem VBScript ?

Code:
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