vbscript extration données XML erreur sur SelectSingleNode

Bonjour,

je cherche à extraire les données contenues dans les balises d'un fichier xml dont je connait les réf :

database.xml :

Code:

---

1 2 3 4

<?xml version="1.0" encoding="iso-8859-1"?> <root> <userxml>test</userxml> </root>

---

Script.vbs :

Code:

---

1 2 3 4 5

set xmldoc = CreateObject("Microsoft.XMLDOM") xmldoc.async = "false" xmldoc.load("%USERPROFILE%\Documents\database.xml") Set uservsb = xmldoc.SelectSingleNode("//root/userxml")userxml.Text msgbox uservbs

---

erreur :
ligne 5, carac 50, Fin d'instruction attendue, code 800A0401

je pense que ca coince au niveau de userxml.text, sans comprendre pourquoi ..

quelqu'un peut m'éclairer de ses lumières?

Merci

Vincent

Bonjour,


j'ai modifié ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

set WshShell = WScript.CreateObject("WScript.Shell") stFicXml = WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Documents\database.xml")   set xmldoc = CreateObject("Microsoft.XMLDOM") xmldoc.async = "false"   if xmldoc.load(stFicXml) Then   Set uservsb = xmldoc.SelectSingleNode("//root/userxml") msgbox uservsb.Text Else MsgBox "Erreur ouverture fichier xml" End If

---

c est impeccable


merci