Function getActiveXFlashPlayerVersion()
    on error resume next
    Dim control, version
    For i = 25 To 0 Step -1
        set control = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
        if (IsObject(control)) then
            version = control.GetVariable("$version")
            Dim temp1, temp2
            temp1 = Split(version, " ")
            temp2 = Split(temp1(1), ",")
            getActiveXFlashPlayerVersion = Join(temp2, ".")            
        end if
    Next
End Function