'Копирование текста в буфер обмена
option explicit

Dim WSHShell, objFSO, str

str = "Эта строка будет скопирована в буфер"
 Set WSHShell = CreateObject("WScript.Shell")
 Set objFSO = CreateObject("Scripting.FileSystemObject")

'Копируем в буфер обмена Windows
WSHShell.Run "cmd.exe /C <nul set /p ""=" & str & """ | CLIP", 0, False

option explicit
dim strCopy, objIE

strCopy = "This text has been copied to the clipboard."

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentWindow.clipboardData.setData "text", strCopy
objIE.Quit
Set objIE = nothing

option explicit

Dim WSHShell, str

str = "Эта строка будет скопирована в буфер"
 Set WSHShell = CreateObject("WScript.Shell")

'Копируем в буфер обмена Windows
WSHShell.Run "cmd.exe /C <nul set /p ""=" & str & """ | CLIP", 0, False

option explicit

function SetClipBoard(sTxt)
	dim oIe, oTb

	set oIe = WScript.CreateObject("InternetExplorer.Application") ' создаем объект Internet Explorer
	oIe.silent = true ' запускаем IE в фоновом режиме
	oIe.Navigate("about:blank") ' создаем пустую Web-страницу

 	oIe.document.body.innerHTML = "<textarea id=txtArea wrap=off></textarea>" ' размещаем элемент TextArea на Web-странице (аналог Memo в Delphi)
	set oTb = oIe.document.getElementById("txtArea") ' находим наш TextArea по ID (id присвоен строчкой выше некоему значению "txtArea")

	oTb.value = sTxt ' записываем в TextArea нашу строку, которую хотим забрать в буфер
	oTb.select ' выделим текст в TextArea

	set oTb = nothing

	oIe.ExecWB 12,0 ' копируем выделенный текст в буфер обмена
	oIe.Quit ' закрываем IE

	Set oIe = nothing
End function

SetClipBoard("Долой C#")