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