@DIV
Set ws = WScript.CreateObject("WScript.Shell")
TempPath = ws.ExpandEnvironmentStrings("%TEMP%") 
TempFile = TempPath & "\_.txt"

strExec = "cmd /c clip.exe < """ & TempFile & """"
Call ws.Run(strExec, 0, True)
@END