'dim Fso

'set Fso = CreateObject("Scripting.FileSystemObject")

'получение имени файла скрипта с полным путем
'FileName = WScript.ScriptFullName 

'получение расширения файла
''FileExt = Fso.GetExtensionName(FileName)

'получение пути к настроечному файлу
'ConfigFile = Replace(FileName, FileExt, "xml")

'получение пути к базе данных
'DBPath = Fso.BuildPath(Fso.GetParentFolderName(Fso.GetParentFolderName(FileName)), "DB")
'DBPath = Fso.BuildPath(DBPath, "stat.gdb")

'загружаем объект для работы с xml
set DOM = CreateObject("Msxml.DOMDocument")
DOM.load('D:\temp\1.xml')
call DOM.setProperty("SelectionLanguage", "XPath")
set Node = DOM.selectSingleNode("//section[@name='suppliedrecipes']")

'set Attr = Node.attributes.getNamedItem("value")
'Attr.NodeValue = DBPath

'DOM.Save(ConfigFile)

msgbox(Node.length)