Discussion :

[eagleleader]

Bonjour à toutes et à tous,

Voici mon problème :

J'ai un fichier XML tel :

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
<Racine>
 <Windows>
  <MachineName>LLUXSDMZ022</MachineName> 
  <SerialNumber>GB8601VKJR</SerialNumber> 
  <Domain>Domaine: DMZ</Domain> 
  <Manufacturer>HP</Manufacturer> 
  <Os>Microsoft(R) Windows(R) Server 2003, Enterprise Edition</Os> 
  <Version>3790</Version> 
  <Description /> 
  <ServicePack>1</ServicePack> 
 </Windows>

Voici comment je le lis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
For Each nodeParent In xmlDoc.selectNodes("/Racine/Windows")
 
		wscript.Echo nodeParent.selectSingleNode("MachineName").text
		wscript.Echo nodeParent.selectSingleNode("SerialNumber").text
		wscript.Echo nodeParent.selectSingleNode("Domain").text
		wscript.Echo nodeParent.selectSingleNode("Manufacturer").text
		wscript.Echo nodeParent.selectSingleNode("Os").text
		wscript.Echo nodeParent.selectSingleNode("Version").text
		wscript.Echo nodeParent.selectSingleNode("Description ").text
		wscript.Echo nodeParent.selectSingleNode("ServicePack").text
 
	Next

Ce code ne pose aucun problème.
Ce que je voudrais pouvoir faire, c'est faire une boucle sur chacun des nodes (MachineName, SerialNumber, ...) sans devoir faire un SELECTSINGLENODE en précisant le nom du noeud.
Ensuite, dans cette boucle j'aimerais pouvoir afficher le nom du noeud et sa valeur.

J'ai trouvé une piste telle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For Each nodeParent In xmlDoc.selectNodes("/Racine/Windows")
 
		For Each nodeEnfant In nodeParent.ChildNodes
 
			WScript.Echo "Enfant: " & nodeEnfant.text
 
		Next
Next

Mais cela ne me donne pas les résultats souhaités.
Je ne trouve pas non plus quelles propriétés utiliser.
Peut être que cette piste n'est pas bonne non plus

[SfJ5Rpw8]

....Mais cela ne me donne pas les résultats souhaités...

et c'est quoi les résultats souhaités .. (ils sont remplacés par quoi ?)

moi j'ai

Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. Tous droits réservés.

MachineName = LLUXSDMZ022
SerialNumber = GB8601VKJR
Domain = Domaine: DMZ
Manufacturer = HP
Os = Microsoft(R) Windows(R) Server 2003, Enterprise Edition
Version = 3790
Description =
ServicePack = 1

pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
    xmlDoc.async = "false"
   If xmlDoc.Load("D:\DVP\VBS\MonXMl.xml") Then 
		For Each nodeParent In xmlDoc.selectNodes("/Racine/Windows")
			For Each nodeEnfant In nodeParent.childNodes
				Wscript.Echo  nodeEnfant.baseName & " = " & nodeEnfant.Text
			Next
		Next
	End if

[eagleleader]

Bonjour Bbil,

Merci pour ta réponse car en fait, la propriété que je ne connaissais pas était

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.BaseName

Je cherchais le moyen de récupérer le nom du noeud et sa valeur pour les mettre dans des variables.

Merci pour ton aide