<SCRIPT language=VBScript>
Dim Ie
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Visible = True
Ie.Navigate("about:blank")
function CopyData()
Dim window,clipboardData,strClip
Set window = Ie.Document.parentWindow
Set clipboardData = window.clipboardData
alert( window.closed )
strClip = window.location & vbCrLf
strClip = strClip & "クリップボードヘコピーしました" & vbCrLf
strClip = strClip & "取り出すのは getData(""TEXT"")です" & vbCrLf
Call clipboardData.setData( "TEXT", strClip )
Ie.Quit
alert( window.closed )
end function
</SCRIPT>
<INPUT type=button value="クリップボートへコピー" onClick='Call CopyData()'>