请问VBS怎样可以将多个arguments参数发送到剪贴板？

1.打开记事本输入以下代码并另存为桌面\1.VBS
For Each a In WScript.Arguments
s = s & a & vbCrLf
Next
MsgBox s

2.拖动5个文件（夹）到这个vbs，这里会弹出s的对话框，

我想问的是：“怎样把s显示的内容复制到粘贴板？”

如图

For Each a In WScript.Arguments
s = s & a & vbCrLf
Next
MsgBox s

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", s
objIE.Quit