'说明 ： 此函数用于 生产出一个 XML 文件 中的 节点  
'参数 ： 
'varName :  标签的名字
'varValue   值
Public Function GetVarXML(varName,varValue)
	GetVarXML = "<Variable>" & vbCrLf & _
	"<Name>" & varName & "</Name>" & vbCrlF & _
	"<Value>" & varValue & "</Value>" & vbCrlF & _
	"</Variable>" & vbCrLf 
End Function




'说明 ： 此函数用于写入一个xml 文件 到磁盘中
'参数 ： 
'fileName :   文件的绝对路径（包含文件的文件名）
'varXML   值  文件的内容
Public Sub WriteStringToFile(fileName,varXML)
   Dim fso,file
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set file = fso.CreateTextFile(fileName,True)
   file.WriteLine(varXML)
   file.Close
   Set file = nothing
   Set fso = nothing
End Sub


'定义一个strXML内容的变量
Dim strXML


'下面过程拼接节点到xml，并把内容保存在strXML这个变量中
strXML = "<Environment>" & vbCrLf
strXML = strXML & GetVarXML("FirstName","Tarun")
strXML = strXML & GetVarXML("LastName","Lalwani")
strXML = strXML & "</Environment>" & vbCrLf


'把strXML中的内容输出到 磁盘中生成xml文件
WriteStringToFile "c:\Testing.xml",strXML


'通过LoadFromFile 方法加载环境变量的xml 
Environment.LoadFromFile "c:\Testing.xml"


'输出LastName 和 FirstName的对应的值
MsgBox Environment("LastName") & "," & Environment("FirstName")