Rilevare versione Adobe Reader

[Teo80]

Ciao,
avrei bisogno di rilevare tramite un programma in Visual Basic la versione di Adobe Reader. Tempo fa avevo utilizzato il seguente script in javascript:

function detectPDF()
{

    /*
    NOTE:
    funziona con IE, probabilmente non con tutti gli altri broswer (ho letto di problemi con la 8 per firefox)
    per le versioni future, è necessario verificare ad ogni rilascio se lo script funziona correttamente
    */
    
    var isInstalled = false;
    var version = null;
    if (window.ActiveXObject) {
        var control = null;
        try {
            // AcroPDF.PDF è usato dalle versioni 7 e successive
            control = new ActiveXObject('AcroPDF.PDF');
        } catch (e) {
            // non è installata la versione 7 o successive, proseguo con il check per le versioni precedenti
        }
        if (!control) {
            try {
                // PDF.PdfCtrl  è usato dalle versioni 6 e precedenti
                control = new ActiveXObject('PDF.PdfCtrl');
            } catch (e) {
                document.form1.version.value = 'Adobe Reader non installato';
            }
        }
        if (control) {
            isInstalled = true;
            //version = control.GetVersions();
            version = control.GetVersions().split(',');
            version = version[0].split('=');
            //version = parseFloat(version[1]);
            version = version[1];
            document.form1.version.value = version;
        }
    } else {
        document.form1.version.value = 'Verificare le abilitazioni sugli ActiveX';
    }

} 

Potreste aiutarmi a tradurlo in VB?
Grazie.

[oregon]

Quale VB?

[Teo80]

Scusami, hai ragione: VB6

[oregon]

Qualcosa del genere

    Dim o As Object
    Dim v As String
    Dim e As Boolean
    
    e = False
    On Error Resume Next
    Set o = CreateObject("AcroPDF.PDF")
    If Err Then
        e = True
        Err.Clear
        Set o = CreateObject("PDF.PdfCtrl")
        If Err = 0 Then e = False
    End If
    
    If Not e Then
        v = o.GetVersions()
        Set o = Nothing
        MsgBox "Versione: " & v
    Else
        Err.Clear
        MsgBox "Adobe Reader non installato"
    End If

... e' un codice d'esempio ... devi perfezionarlo tu ... in particolare, se il prodotto e' installato, devi scegliere la parte di stringa che ti interessa da quella che ti viene restituita ...

[Teo80]

Grazie mille, appena ho un secondo provo (se gli utenti mi lasciano il tempo...)