‘创建xml保留对象组件
set oXML = XMLUtil.CreateXML
‘新建一个document
oXML.CreateDocument “iQuickTest”
‘获取root根元素
set root = oXML.GetRootElement
‘添加子节点qtp，并赋值
root.AddChildElementByName “qtp”,”quicktest professional”
‘添加子节点vbs，并赋值
root.AddChildElementByName “vbs”,”vbscript”
‘保存文件
oXML.SaveFile “d:\iquicktest.xml”
‘释放对象
Set root = nothing
Set oXML = nothing