Function createEnviormentXML(xmlpath) Set fso=createObject("Scripting.FileSystemObject") Set oXml=fso.CreateTextFile(xmlPath)
oxml.Write_
"<Environment>"+vbCrlf+"<Variable>"+vbCrlf+_
"<Name>netname</Name>"+vbCrlf+_
"<Value>baidu</Value>"+vbCrlf+_
"</Variable>"+vbCrlf+_
"</Variable>"+vbCrlf+_
"<Name>netname</Name>"+vbCrlf+_
"<Value>http://www.baidu.com</Value>"+vbCrlf+_
"</Variable>"+vbCrlf+_
"<Environment>" Set oxml=nothing Set fso=nothing EndFunction