使用qtp创建xml文件

'创建xml保留对象组件
set oXML = XMLUtil.CreateXML
'新建一个document
oXML.CreateDocument "Test"

'‘获取root根元素
set root = oXML.GetRootElement

'添加子节点qtp，并赋值
root.AddChildElementByName "qtp","quicktest professional"

'添加子节点vbs，并赋值
root.AddChildElementByName "vbs","vbscript"

'保存文件
oXML.SaveFile "d:\Test.xml"

'释放对象
Set root = nothing
Set oXML = nothing

这样，就在D盘根目录下，生成了Test.xml文件：