function CopyToClipboard(sText)
\'Set objIE = CreateObject(\"InternetExplorer.Application\")
\'objIE.Navigate(\"about:blank\")
\'objIE.document.parentwindow.clipboardData.SetData \"text\", sText
\'objIE.Quit
\'Через VB:
Set WshShell = CreateObject(\"WScript.Shell\")
Set oExec = WshShell.Exec(\"clip\")
Set oBuff = oExec.stdIn
oBuff.WriteLine sText
end function