// 概要 ------------------------------------------------------------------------
// このファイルはFlash Player ActiveX コントロールのバージョン情報を検出するため
// に
// 必要な、Visual Basic ヘルパーを記述したVBScriptファイルです
// 
// サイト名：四国八十八.net（http://www.shikoku88.net/）
// 作成日：2007年7月
// 製作者：ドコモサービス四国株式会社（http://www.docomo-ss.co.jp/）
// 権利保有者：あなぶきトラベル（http://www.anabukitravel.jp/）
// Copyright(c) 2007 Anabukitravel Inc.　All Rights Reserved
// -----------------------------------------------------------------------------



Function VBGetSwfVer(i)
  on error resume next
  Dim swControl, swVersion
  swVersion = 0
  
  set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
  if (IsObject(swControl)) then
    swVersion = swControl.GetVariable("$version")
  end if
  VBGetSwfVer = swVersion
End Function