ページの先頭行へ戻る
Interstage Studio J Business Kit 解説書
FUJITSU Software

2.10 インストールしたJBKプラグインを判別する方法

クライアントマシンにJBKプラグインがインストールされているかどうかを、Webページで判別する方法を紹介します。

VBScriptやJavaScriptを用いることで、クライアントマシン上のJBKプラグインのバージョン番号を確認することができます。

これにより、WebブラウザでWebページを開いたときに、最新のJBKプラグインがインストールされていない場合に、 インストーラのダウンロードを促すWebページに移動するといった使い方ができます。

クライアントにJBKプラグインがインストールされているかどうかを判別するスクリプトの例を、以下に示します。

表2.5 JBKプラグインのインストールを判別するスクリプトの例
<HTML>
<HEAD>
<TITLE>JBKプラグインのインストールを確認するページ</TITLE>

<!-- Internet Explorer用スクリプト -->
<SCRIPT LANGUAGE="VBScript">
<!--
    ' 最新のJBKプラグインのバージョン番号
    Const PLG_REQUIRED_VERSION = 9.01
    ' インストーラ用WebページのURL
    Const PLG_INSTALL_URL = "http://foo.fujitsu.com/index.html"

    Dim CurrentVersion
    CurrentVersion = 0.0

    ' インストールされているJBKプラグインのバージョン番号を取得する
    ' JBKプラグインがインストールされていない場合はGetPluginVersion()が
    ' エラーを返すが、"On Error Resume Next"を指定しているので、
    ' CurrentVersionが0.0のまま処理は続行する
    On Error Resume Next
    CurrentVersion = GetPluginVersion()

    ' 最新のJBKプラグインがインストールされていない場合
    If CurrentVersion < PLG_REQUIRED_VERSION Then
        ' インストール手順を説明するWebページに移動するかどうかを
        ' ユーザに問い合わせる
        Dim Msg1, Msg2
        Msg1 = "最新のJBKプラグインをインストールする必要があります。"
        Msg2 = "インストール手順を説明するWebページに移動しますか?"

        Dim ok
        ok = MsgBox (Msg1 + Chr(13) + Msg2, vbOKCancel)

        ' インストール手順を説明するWebページに移動する
        If ok = vbOK Then
            document.location = PLG_INSTALL_URL
        End If
    End If

    '
    ' インストールされているJBKプラグインのバージョン番号を取得する関数
    '
    Function GetPluginVersion
        Const PLG_NAME = "F5CXWPIE.JBKPluginCtrl.1"
        Dim Plugin
        Set Plugin = CreateObject(PLG_NAME)
        GetPluginVersion = Plugin.version
    End Function
-->
</SCRIPT>

</HEAD>

<BODY>
JBKプラグインのインストール確認
</BODY>
</HTML>

注意

<BODY>~</BODY>内にJBKプラグインを使用するためのタグ(<OBJECT>あるいは<EMBED>)を記述すると、 クライアントマシンにJBKプラグインがインストールされている場合に、スクリプトによるバージョン確認の結果に関わらず、JBKプラグインが起動されます。 アプレットを使用しないWebページに、スクリプトを記述するようにしてください。