[..] Connaitre la version d'office installée sur les pc

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
jcaspar
Niveau 7
Niveau 7
Messages : 449
Enregistré le : mar. 23 sept. 2008 17:58
Status : Hors ligne

[..] Connaitre la version d'office installée sur les pc

#1

Message par jcaspar »

Bonjour à tous !

J'aurais besoin de connaitre la version d'office installée sur les pc de mon reseau
je présume qu'il suffit de lire une clé du registre ?
Pouvez vus svp m'expliquer comment procèder ?

Merci beaucoup pour vos suggestions et conseils

Jean Marc
Avatar du membre
Yogui
Niveau 9
Niveau 9
Messages : 689
Enregistré le : ven. 18 avr. 2008 17:29
Status : Hors ligne

Re: [..] Connaitre la version d'office installée sur les pc

#2

Message par Yogui »

un truc comme ça ?

Code : Tout sélectionner

MsgBox(0, "version d'office", getOfficeKey())


Func getOfficeKey()
    Local $List[1]
    Local $i = 1
    $var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Common\InstallRoot", "Path")
    If $var <> "" Then
        $product = "2003"
        Dim $officeKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration"
    Else
        $var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\10.0\Common\InstallRoot", "Path")
        If @error <> 0 Then
            $product = "Pas d'installation d'office trouvée"
        EndIf
        If $var <> "" Then
            $product = "XP"
            Dim $officeKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\10.0\Registration"
        EndIf
    EndIf
    Dim $var = RegEnumKey($officeKey, $i)
    If @error <> 0 Then
        $product = "Pas d'installation d'office trouvée"
    Else
        $List[$i - 1] = RegRead($officeKey & "\" & $var, "DigitalProductID")
        If $List[$i - 1] = "" Then
            $product = "Pas d'installation d'office trouvée"
        Else
            $key = $List[$i - 1]
            Return $product
        EndIf
    EndIf
EndFunc   ;==>getOfficeKey
jcaspar
Niveau 7
Niveau 7
Messages : 449
Enregistré le : mar. 23 sept. 2008 17:58
Status : Hors ligne

Re: [..] Connaitre la version d'office installée sur les pc

#3

Message par jcaspar »

:D Merci beaucoup pour votre réponse

C'est tout à fait ce que je cherchais à un detail pret je souhaiterais
savoir s'il s'agit de Office 2003 sp1,2,ou 3

Meric encore pour vos réponses :P

Jean Marc
Avatar du membre
Yogui
Niveau 9
Niveau 9
Messages : 689
Enregistré le : ven. 18 avr. 2008 17:29
Status : Hors ligne

Re: [..] Connaitre la version d'office installée sur les pc

#4

Message par Yogui »

jcaspar a écrit : C'est tout à fait ce que je cherchais à un detail pret je souhaiterais
savoir s'il s'agit de Office 2003 sp1,2,ou 3
Alors aucune idée :mrgreen:

Edit

J'édite mon message qui est tout sauf constructif, je n'en ai aucune idée car je n'ai pas plusieurs sp d'office je ne peux donc pas comparer les clefs de registre.

par contre mon exemple est adaptable. il suffit de comparer les registres de PC ayant les installation à comparer il doit y avoir des différences
Répondre