VbCrLf & _

"<xsl:template match='/'>" & _

"<PRODUCTS>" & _

"<xsl:apply-templates select='PRODUCTS/PRODUCT' order-by='-TITLE' />" & _

"</PRODUCTS>" & _

"</xsl:template>" & _

VbCrLf & _

"<xsl:template match='PRODUCT'>" & _

"<PRODUCT>" & _

"<xsl:value-of select='TITLE' />" & _

"</PRODUCT>" & _

"</xsl:template>" & _

VbCrLf & _

"</xsl:stylesheet>"

'Применяем стилевую таблицу к документу

Set objResult = CreateObject("Msxml2.DOMDocument")

objResult.async = False

XmlParser.TransformNodeToObject objStylesheet, objResult

'Выводим результаты

For Each nodeNode In objResult.documentElement.childNodes

WScript.Echo nodeNode.text

Next

Прочие свойства и методы

Перечень свойств и методов:

	Описание
doctype	Содержит объект XMLDOMDocumentType (узел DTD XML-документа). Только чтение. Если DTD в документе отсутствует, свойство содержит null. Только чтение.
url	Содержит URL документа. Только чтение.
nodeFromID(idString)	Возвращает узел по значению его атрибута типа ID(т.е. осуществляет поиск узла по ID) или Nothing, если узел не найден.
hasChildNodes()	Возвращает True, если текущий узел имеет дочерние узлы, и False в противном случае.
specified	Возвращает True, если текущий узел атрибута явно определён в тексте документа, и False в противном случае (если атрибут опущен и имеет значение по умолчанию, взятое из DTD).
normalize()	Нормализует все текстовые узлы элемента (на любой глубине), объединяя два или больше смежных текстовых узла в один текстовый узел.

Примеры использования некоторых свойств и методов:

Set xmlParser = CreateObject("Msxml2.DOMDocument")

xmlParser.async = False

xmlParser.load "C:\Sample.xml"

'Отображаем DTD документа

WScript.Echo xmlParser.doctype.xml

'Отображаем URL документа

WScript.Echo xmlParser.url

'Проверяем, имеет ли корневой узел документа дочерние узлы

If xmlParser.DocumentElement.HasChildNodes Then

WScript.Echo "Узел " & xmlParser.documentElement.nodeName & " имеет дочерние узлы."

End If

'Проверяем, у каких товаров (элементов "PRODUCTS") явно задан атрибут "import"

For Each nodePRODUCT In xmlParser.documentElement.childNodes

strTitle = nodePRODUCT.getElementsByTagName("TITLE")(0).text

If nodeProduct.Attributes(0).Specified Then

WScript.Echo "У товара '" & strTitle & "' атрибут 'import' задан явно - " & _

nodePRODUCT.getAttribute("import")

Else

WScript.Echo "У товара '" & strTitle & "' атрибут 'import' опущен - " & _

nodePRODUCT.getAttribute("import")

End If

Next