如何利用qtp创建一个xml文件

‘创建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