' VB Script Document


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