¿Hay algún problema con VBS al extraer contenido XML?

dim xDoc,xNode,xNodes

dim pFile

dim i,n

pFile="d:\xml_test.xml"

set xDoc=CreateObject("MSXML2.DOMDocument")

si xDoc.load(pFile) entonces

'Información del encabezado

set xNodes=xDoc.documentElement.selectNodes(".//Head")

n=xNodes(0).childNodes.length-1

redim arr(n) 'Declaración An la matriz almacena la información obtenida

para i=0 a n

set xNode=xNodes(0).childNodes(i)

arr(i)= xNode .baseName & space(1) & xNode.Text

siguiente

'Información INFO

set xNodes=xDoc.documentElement.selectNodes("./ /INFO ")

i=n

n=n+xNodes.length

redim preserve arr(n)

para cada xNode en xNodes

i=i+1

arr(i) =xNode.childNodes(0).baseName & space(1) & xNode.childNodes(0).Text

siguiente

'Escribir en archivo txt

dim fso,oFile

pFile="d:\xml_text.txt"

Establecer fso = CreateObject("Scripting.FileSystemObject")

Establecer oFile = fso.CreateTextFile(pFile, True)

oFile.Write(join(arr,vbcrlf) )

oFile.Close

set oFile=nada

set fso=nada

msgbox "¡El archivo txt se escribió correctamente! "

else

msgbox "¡Falló la carga del archivo XML! "

finalizar si

establecer xNode=nada

establecer xNodes=nada

establecer xDoc=nada