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>
(※ただし規定のセキュリティ設定では動作しない)