<script
type="text/vbscript"
src="http://lightbox.in.coocan.jp/baseFunction.vbs"
charset="utf-8"
></script>
<script type="text/vbscript">
Function VBS()
on error resume next
ExecuteGlobal( document.getElementById("vbstext").value&"")
if Err.Number <> 0 then
alert(Err.Description)
end if
on error goto 0
End Function
</script>
<textarea style='width:550px;height:250px;' id=vbstext>
</textarea><br>
<INPUT type=button value="実行" onClick='Call VBS()' language="VBScript">