Lotus Notes - Crear archivo .xml desde lotus script

#===========================================================

Metodo no purista. Puede dar errores con los acentos (Probar UTF-8 en encoding) ademas de no validar si esta mal formado

#===========================================================

Set oSession = New NotesSession

Set oFile = oSession.CreateStream

sFilePath  = "c:\Fichero.xml"

If Not oFile.Open(sFilePath , sCharSet ) Then Error 9999 , "Open failed: " & sFilePath

oFile.writeText("<?xml version="1.0" encoding="iso-8859-1"?>")

oFile.writeText("<Usuarios>")

Set oView= oSession.CurrentDatabase.getView("Users")

For nDoc=1 To oView.Count

     set oDoc = oView.getNthDocument(nDoc)

     oFile.writeText("<Usuario nombre='" & oDoc.Nombre(0) & "'  email='" & oDoc.email(0) & "'/>")   'OJO a las comillas simples

next

oFile.writeText("</Usuarios>")

Call oFile.Close()

#===========================================================

Metodo PURISTA https://www.microsoft.com/es-es/download/details.aspx?id=3988

https://docs.microsoft.com/en-us/previous-versions/windows/desktop/ms764643(v=vs.85)

#===========================================================

Set xmlDoc = CreateObject( "Msxml2.DOMDocument" ) 'Ultima version "Msxml2.DOMDocument.6.0"

Dim MyNode

Dim namedNodeMap

xmlDoc.async = false

xmlDoc.loadXML("<root><child/></root>")

Set MyNode = xmlDoc.createNode(2, "Sci-Fi", "")  

Set namedNodeMap = xmlDoc.documentElement.childNodes.item(0).attributes

Call namedNodeMap.setNamedItem(MyNode)

..........