[VBS] Parse XML

Bonsoir,

j'ai developpé un ptit script en Vbs pour parser un fichier XML mais j'ai un petit souci :

j'ai un fichier xml en .cfg (fichier de conf) et je cherche a récupérer une info dans le node <disk> ... </disk>
Code:

1 2 3 4 5 6 7 8 <disk> setting name="default" warnlevel="90%" paniclevel="95%" <setting name="D" warnlevel="90%" paniclevel="95%" /> <setting name="C" warnlevel="90%" paniclevel="95%" /> <setting name="E" warnlevel="99%" paniclevel="100%" /> <setting name="F" warnlevel="90%" paniclevel="98%" /> </disk>
Mon script fonctionne bien mais j'ai un souci pour récupérer les info qd la ligne commence par

Code:

"<setting..."

Pas de souci pour la ligne

Code:

setting name="default" warnlevel="90%" paniclevel="95%"

Voici ce que j'ai fait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 '-- Lire un doc XML Set xmlDoc=CreateObject("Msxml2.DOMDocument") xmlDoc.async="false" ' permet de charger entièrement le document en mémoire avant le traitement xmlDoc.load("d:\tmp\bbwin\bbwin2.cfg") ' Lister les valeurs par nom de balise 'Set oElement = xmlDoc.documentElement Set objNodeList = xmlDoc.getElementsByTagName("disk") If xmlDoc.parseError.errorCode <> 0 Then MsgBox("Parse Error line " & xmlDoc.parseError.line & ", character " &_ xmlDoc.parseError.linePos & vbCrLf & xmlDoc.parseError.srcText) End If If Not objNodeList Is Nothing Then For Each x In objNodeList MsgBox x.Text Next End If
Auriez vous une idée pour que je récupère toutes les lignes entre <disk> et </disk> ??

Par avance merci.