Trouver la version de MSXML installée

Version imprimable

Avant de céder à la mode des "Trucs & Astuces" ...

je voudrais voir si ce que vous pouvez me proposer pour connaitre la version (majeure) de MSXML installé sur votre PC..:

J'ai cela :
Code:

1 2 3 4 5 6 7 8 9 Dim iVersion As Integer On Error Resume Next For i = 4 To 9 Set oXML = CreateObject("MSXML2.MXXMLWriter." & i & ".0") If Not oXML Is Nothing Then iVersion = i Set oXML = Nothing Next Debug.Print iVersion
une autre idée ?

19/07/2009, 21h01
DarkVader

Bonsoir Bbil,
vu l'heure, faisons court, éventuellement, ce sera plus long demain :
sClsid = regGetValue(HKEY_CLASSES_ROOT, "msxml2\clsid", "")
sTypeLib = regGetValue(HKEY_CLASSES_ROOT, "Clsid\" + sClsid + "\Typelib", "")
tmp() = regEnumSection(HKEY_CLASSES_ROOT, "Typelib\" + sTypeLib)

Je te laisse développer GetValue et EnumSection
Derrière chaque version énumérée, tu trouveras :
* la description de la librairie comme valeur par defaut,
* la section Lcid (ou la valeur de révision) qui elle-même contient la section win32 dont la valeur par défaut indique le chemin complet à la librairie.
Flags indique le type de librairie

Bonne soirée
19/07/2009, 21h47
ucfoutu

Bonjour,

C'est peut-être ce qui figure entre guillemets dans cette ligne, qui ne va pas :

Code:

Set oXML = CreateObject("MSXML2.MXXMLWriter." & i & ".0")

Où l'as-tu trouvée ? (cela aidera)
19/07/2009, 22h08
SfJ5Rpw8

Citation:

Envoyé par ucfoutu

Bonjour,

C'est peut-être ce qui figure entre guillemets dans cette ligne, qui ne va pas :

Code:

Set oXML = CreateObject("MSXML2.MXXMLWriter." & i & ".0")

Où l'as-tu trouvée ? (cela aidera)

non pas de problème il marche le code ... je l'ai pas trouvé je l'ai écris...

mais bon la méthode je suis pas sur qu'elle soit "terrible..." ..

@Dark .. : ta méthode semble être une solution, j'ai réussi à trouver un "RegGetValue", mais j'ai plus de mal avec le enumSection :aie:
19/07/2009, 22h19
ucfoutu

Je n'ai rien sous la main pour vérifier, mais (d'instinct) c'est un document que je créerais par createobject et j'irais ensuite contrôler sa propriété .version.
Il va de soi que cela ne pourrait marcher que si la création d'un document de ce type pouvait se faire sur la machine.
19/07/2009, 22h26
SfJ5Rpw8

C'est ce que j'ai fait au début mais la classe DOMDocument ne possède pas de propriété version .. par contre la classe MXXMLWriter oui c'est pour cela que j'étais parti avec MXXMLWriter sauf que version renvoi toujours 1 :aie: (sur mon pc...)

C'est pour cela que me suis rabattu sur la boucle avec le On Error... histoire de tester l'objet avec le plus grand numéro de version dont la création est possible sans erreur...
19/07/2009, 23h05
ucfoutu

Il semble que l'entête est composée de noeuds et que l'un d'entre eux est ce que tu cherches.
Pas sûr de moi....
Regarde quand même :
http://msdn.microsoft.com/fr-fr/library/hf9hbf87.aspx
19/07/2009, 23h07
SfJ5Rpw8

Non ce que je cherche c'est la version de la librairie MSXML pas du fichier XML généré ..;)
20/07/2009, 07h50
ucfoutu

As-tu lu ceci :
http://support.microsoft.com/kb/278674
(c'est mal traduit, mais on comprend malgré tout...)

EDIT :
je suppose par contre que tu as eu l'occasion de lire cette discussion-là :
http://blogs.msdn.com/xmlteam/archiv...-explorer.aspx
20/07/2009, 08h58
DarkVader

Bonjour,
De retour avec quelques commentaires :
l'avantage de la méthode explorant la base de registre
c'est quelle est universelle et réutilisable avec d'autres librairies.

Une autre solution consisterait à utiliser une requête WMI ;
personnellement, je n'aime pas car c'est souvent limité et pire, assez lent,
sans parler du fait qu'il faut w2000 ou plus.

PS: Désolé pour regGetValue & regEnumSection, il s'agit de fonctions d'une librairie perso :
elles utilisent respectivement aux api regGetValueEx et RegEnumKeyEx.
As-tu eu la curiosité d'explorer ta base de registre comme indiqué ?
20/07/2009, 09h03
DarkVader

Citation:

Envoyé par ucfoutu

As-tu lu ceci :
http://support.microsoft.com/kb/278674
(c'est mal traduit, mais on comprend malgré tout...)
.../...

Ben pour quelqu'un qui aime à se passer le plus possible d'accessoires externes :roll:
20/07/2009, 09h12
ucfoutu

Citation:

Envoyé par DarkVader

Ben pour quelqu'un qui aime à se passer le plus possible d'accessoires externes :roll:

Remarque acceptée (je l'applaudis même), mais :
1) je n'ai rien trouvé d'autre
2) plusieurs versions semblent pouvoir être installées "côte à côte"

Et je reste troublé par l'expression de la question (version "installée" ... quid de celle "utilisée" ?)
20/07/2009, 09h23
DarkVader

La méthode indiquée expose toutes les versions installées dans l'énumération des clés :
il suffira ensuite de choisir la version la plus appropriée.

ATTENTION - Un oubli :
dans la base de registre les numéros de version sont exprimées en hexadécimal -
ce n'est pas important quand le nombre de versions est peu important mais dans le cas contraire
cela peut être une source d'erreurs :
exemple : une version notée 75.17 correspond à la version 117.23 - il importe donc de convertir.
20/07/2009, 11h49
SfJ5Rpw8

Citation:

Envoyé par DarkVader

....PS: Désolé pour regGetValue & regEnumSection, il s'agit de fonctions d'une librairie perso :
elles utilisent respectivement aux api regGetValueEx et RegEnumKeyEx.
As-tu eu la curiosité d'explorer ta base de registre comme indiqué ?

oui j'ai regardé la base de registre et j'ai aussi commencer à extraire ces numéros de versions avec RegEnumKeyEx .... mais j'ai pas encore eu le temps de finir ... (j'ai pas le code ici... mais de mémoire j'avais un problème sur la première clef ( 2.6) ... qui n'apparaissait pas dans mon énumération ..)
:ccool:

Citation:

Et je reste troublé par l'expression de la question (version "installée" ... quid de celle "utilisée" ?)

ben en fait c'est ni installée ni utilisée c'est utilisable :mouarf:
20/07/2009, 12h02
DarkVader

Citation:

Envoyé par bbil

oui j'ai regardé la base de registre et j'ai aussi commencer à extraire ces numéros de versions avec RegEnumKeyEx .... mais j'ai pas encore eu le temps de finir ... (j'ai pas le code ici... mais de mémoire j'avais un problème sur la première clef ( 2.6) ... qui n'apparaissait pas dans mon énumération ..)
:ccool:

Bad code or bad install ? :roll:

Citation:

Envoyé par bbil

ben en fait c'est ni installée ni utilisée c'est utilisable :mouarf:

+1 :ccool:

Je viens de tester la méthode à DarkVader sur un PC Vista Pro ..
et la problème la clef HKEY_CLASSES_ROOT\msxml2\clsid n'existe pas sur ce poste ..
Cependant ma méthode fonctionne avec HKEY_CLASSES_ROOT\msxml2.DomDocument\clsid

pour le code (il reste encore quelques points "bizarres" à étudier ) cela donne dans un module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const ERROR_NO_MORE_ITEMS = 259&
 
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As Any) As Long
'
' Lecture d'une chaine dans base de registre
'
Function LitChaine(ByVal hKey As Long, stChemin As String, stCle As String) As String
    Dim temp As Long
    Dim result As Long
    Dim tampon As String
    Dim TailleTampon As Long
 
   If RegOpenKey(hKey, stChemin, result) = 0 Then
       TailleTampon = 255
      tampon = Space(TailleTampon)
      temp = RegQueryValueEx(result, stCle, 0, 0, ByVal tampon, TailleTampon)
      LitChaine = Left$(tampon, TailleTampon - 1)
      RegCloseKey hKey
   End If
End Function
 
'
'Fonction ListeSousClefs
'
Function ListeSousClefs(ByVal hKey As Long, stChemin As String) As Collection
    Dim result As Long
    Dim tampon As String
    Dim lIndex As Long
    Dim Ret As Long
    Dim t As New Collection
    If RegOpenKey(hKey, stChemin, result) = 0 Then
            Ret = 255
            tampon = Space(Ret)
            While RegEnumKeyEx(result, lIndex, tampon, Ret, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) <> ERROR_NO_MORE_ITEMS
                t.Add Left$(tampon, Ret)
                lIndex = lIndex + 1
                Ret = 255
                tampon = Space(Ret)
            Wend
            Set ListeSousClefs = t
            RegCloseKey hKey
 
    Else
       MsgBox "Erreur ouverture " & stChemin
    End If
End Function

et dans la form pour l'appel de la fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
    Dim stClsid As String
    Dim sTypeLib As String
    Dim Tmp
    Dim st
 
    stClsid = LitChaine(HKEY_CLASSES_ROOT, "msxml\clsid", "")
    stClsid = LitChaine(HKEY_CLASSES_ROOT, "MSXML2.DOMDocument\clsid", "")
    sTypeLib = LitChaine(HKEY_CLASSES_ROOT, "Clsid\" & stClsid & "\Typelib", "")
    Set Tmp = ListeSousClefs(HKEY_CLASSES_ROOT, "Typelib\" + sTypeLib)
    For Each st In Tmp
        Debug.Print st
    Next
End Sub

:merci: encore DarkVader ;)

PS: je marque pas résolu tout de suite au cas ou quelqu'un ait une meilleure idée...

21/07/2009, 08h43
DarkVader

He bien voilà une méthode qui fonctionne quelquesoit la version de windows 8)

PS: Attention, tu n'as pas refermé ton handle dans listesousclés.
21/07/2009, 18h53
SfJ5Rpw8

Citation:

Envoyé par DarkVader

..
PS: Attention, tu n'as pas refermé ton handle dans listesousclés.

Corrigé :merci: