Function GetMediaPlayerVersion()
    on error resume next

    Set tmp = CreateObject("MediaPlayer.MediaPlayer.1")
    If IsObject(tmp) Then
        version = tmp.versionInfo
    End If

    If not version Then
        Set tmp7 = CreateObject("WMPlayer.OCX.7")
        If IsObject(tmp7) Then
            version = tmp7.versionInfo
        End If
    End If
    GetMediaPlayerVersion = version
End Function

Function GetAcrobatVersion()
    GetAcrobatVersion = ""
    On error resume next
    If ScriptEngineMajorVersion > 1 Then
        GetAcrobatVersion = determineAcrobatVersion(acrobatObject.GetVersions)
        If GetAcrobatVersion = "" Then
            If isPluginAvailable("pdf.PdfCtrl.6") OR isPluginAvailable("GBDetect.Detect.1") Then
                GetAcrobatVersion = "6"
            Elseif isPluginAvailable("pdf.PdfCtrl.5") Then
                GetAcrobatVersion = "5"
            Else
                err.clear
                Set acrobatObj = CreateObject("Pdf.PdfCtrl.1")
                If err.number = 0 Then
                    acrobatObj.gotoFirstPage
                    If err.number = 438 Then
                        GetAcrobatVersion = "3"
                    Else
                        GetAcrobatVersion = "4"
                    End If
                End If
            End If
        End If
    End If
End Function

Function isPluginAvailable(pluginName)
    isPluginAvailable = -1
    On error resume next
    If ScriptEngineMajorVersion > 1 Then
        isValidObject = IsObject(CreateObject(pluginName))
        If isValidObject Then
            isPluginAvailable = 1
        Else
            isPluginAvailable = 0
        End If
    End If
End Function