<?xml version="1.0"?>

<addons>

 

      <Placemark>

        <name>ТТ-4</name>

        <styleUrl>#icon-labelson-nodesc</styleUrl>

        <Point>

          <coordinates>

            11.1234578,12.7451877

          </coordinates>

        </Point>

      </Placemark>

      

      <Placemark>

        <name>ТК-8</name>

        <styleUrl>#icon-labelson-nodesc</styleUrl>

          <coordinates>

            12.2556868,13.5278782

          </coordinates>

      </Placemark>

 

</addons>

Set objXMLDoc = Wscript.CreateObject("Microsoft.XMLDOM")

objXMLDoc.async = False

 

Dim XMLFile

XMLFile = "C:\TEMP\XML{text}0.xml"

objXMLDoc.load(XMLFile)

Set nodes = objXMLDoc.selectNodes("addons/Placemark/Point")

For Each node In nodes

  ????.remove

Next

 

objXMLDoc.Save(XMLFile)

 

MsgBox "Delete completed"