'*******************************************************************************/
'	EasyWEB	5
'
'	$Id: flashdetector.vbs,v 1.2.12.1 2006/10/09 07:24:08 antek Exp $
'*******************************************************************************/

// Visual basic helper required to detect Flash Player ActiveX control version information

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