clipコマンドを利用してクリップボードに文字列をコピーするVBScript

clipコマンドを利用してクリップボードに文字列をコピーするVBScriptclipコマンドを利用して文字列をクリップボードにコピーするVBScriptです。

Option Explicit

Dim s

s = "こんにちは" & vbTab & """田中""" & vbTab & "さん"
PutInClipboardText s
MsgBox "文字列をクリップボードにコピーしました。" & vbCrLf & "文字列:" & s

Public Sub PutInClipboardText(ByVal str)
  Dim cmd
  
  cmd = "cmd /c ""echo " & str & "| clip"""
  CreateObject("WScript.Shell").Run cmd, 0
End Sub

XPは標準でclipコマンドが入っていなかったような記憶がありますが、7では標準でclipコマンドが使えるようだったのでスクリプトを書いてみました。
以前に書いたInternet Explorerを使ったスクリプトよりも軽くて使いやすいです。