dim ConstAlways, ConstArray
ConstAlways = Array("AlwaysShowOrgBook",	"При входе всегда показывать компании", 	"true", 	"boolean")
ConstTest = Array("OnLineRuleCalc",	"Проверка правил одновременно с вводом", 	"false", 	"boolean")

ConstArray = Array(ConstAlways, ConstTest)

dim Fso

set Fso = CreateObject("Scripting.FileSystemObject")

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

'получение пути к настроечному файлу
ConfigFile = Fso.BuildPath(Fso.GetParentFolderName(FileName), "config.xml")

for i = LBound(ConstArray) to UBound(ConstArray)
	PropObj = ConstArray(i)
	call RegProp(ConfigFile, PropObj(0), PropObj(1), PropObj(2), PropObj(3))
Next 


function RegProp(fConfig, pName, pCaption, pValue, pType)
      msgbox(ConfigFile)
	set DOM = CreateObject("Msxml.DOMDocument")
	DOM.load(ConfigFile)
	stop
	call DOM.setProperty("SelectionLanguage", "XPath")
	XPathQuery = "//param[@name='" + pName + "']"
	set Node = DOM.selectSingleNode(XPathQuery)
	On Error Resume Next
	param = Node.NodeName
	if Err.Number <> 0 then
			On Error GoTo 0
			Set root = DOM.documentElement
			Set pNode = DOM.createElement("param")
			root.appendChild pNode
			Set NodeMap = pNode.Attributes
			
			Set Attr = DOM.createAttribute("name")
			Attr.NodeValue = pName
			NodeMap.setNamedItem Attr
			
			Set Attr = DOM.createAttribute("caption")
			Attr.NodeValue = pCaption
			NodeMap.setNamedItem Attr
			
			Set Attr = DOM.createAttribute("value")
			Input = InputBox("Введите значение для параметра '" + pCaption + "'", "Запрос значения параметра", pValue)
			Attr.NodeValue = Input
			NodeMap.setNamedItem Attr
			
			Set Attr = DOM.CreateAttribute("type")
			Attr.NodeValue = pType
			NodeMap.setNamedItem Attr

			
			DOM.save(ConfigFile)
	end if
end function


msgbox("Параметры были успешно добавлены")