vbs-传值到剪切板

Function SendToClipBoard(strValue)
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "cmd.exe /c echo " & strValue & " | clip",0,False
End Function