Tポイントツールバー
<script type="text/javascript" charset="utf-8">
var tb = 0;
</script>
<script language="VBScript" carset="utf-8" >
On Error Resume Next
tb = 0
tb = (IsObject(CreateObject("ToolBar.Settings")))
</script>
<script type="text/javascript" charset="utf-8">
// <![CDATA[
document.write("Tポイントツールバー" + ((tb) ? "入ってます": "入ってません"));
// ]]>
</script>(※ただし規定のセキュリティ設定では動作しない)
