DOM + need to remove element from XML bt VB script

Question

I have the following VB script , I want to remove the "NET2 ID" element from name list how to remove the NET2 ID element , need first to verify if NET2 defined and then to delete it THX

Set objXMLDoc = CreateObject("Microsoft.XMLDOM") 
objXMLDoc.async = False 
objXMLDoc.load("\\dir\d.xml") 
Set objRoot = objXMLDoc.documentElement 
Set objExNode = objRoot.removeChild(objRoot.childNodes.item(1)) 

the XML file:

<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
<root version="3.0">
<names> 
<NET1 ID="10.10.10.1-10" />
<NET2 ID="10.10.10.1-10" />
</names>
</root>

Answer 1

You can use XPath to determine if the node exists then remove it. Something like this:

Set objXMLDoc = CreateObject("Microsoft.XMLDOM")  
objXMLDoc.async = False  
objXMLDoc.load("\\dir\d.xml")  
Set objRoot = objXMLDoc.documentElement  

If Not objRoot.selectSingleNode("./names/NET2") Is Nothing Then
    Set objExNode = objRoot.firstChild.removeChild(objRoot.firstChild.childNodes(1))  
End If

Also, the element NET2 is a child of "names" and not "root", which is the documentElement, so

Set objExNode = objRoot.removeChild(objRoot.childNodes.item(1)) 

becomes

Set objExNode = objRoot.firstChild.removeChild(objRoot.firstChild.childNodes(1))  

EDIT: To add a new node you would do the following. 1 means NODE_ELEMENT

Set newNode = objXMLDoc.createNode(1, "NET3", "")
Set id = objXMLDoc.createAttribute("ID")
id.Value = "newIDValue"
newNode.attributes.setNamedItem(id)

objRoot.firstChild.appendChild(newNode)