|
Const XMLDataFile = "D:\InvoiceLoad\Regression Testing\LeaseInvGap8OPDE_COA.xml"
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = False
xmlDoc.Load(XMLDataFile)
Set node = xmlDoc.SelectSingleNode("/Header/To/Credential domain/Identity")
node.Text = "AN01000070708-T"
xmlDoc.SaveFile "D:\InvoiceLoad\Regression Testing\LeaseInvGap8OPDE_COA.xml"
|