Set objServiceManager = WScript.CreateObject("com.sun.star.ServiceManager")
Set objConnection = objServiceManager.CreateInstance("com.sun.star.sdb.DatabaseContext")

'  Erstellt ein neues Datenbankobjekt
Set objDataSource = objConnection.createInstance()

' verbindet die Datenbank mit der Calc-Datei
' zuerst wird der Datenbanktrieber bestimmt "sdbc:calc"
' dann die Calc-Datei jetzt aber mit Backslashs z.B.: c:\sloffice\schueler.ods - OpenOffice führt die Umwandlung der Backslashs wohl selber durch (seltsam)
objDataSource.url = "sdbc:calc:c:\sloffice\schueler.ods"

' Erstellt ein neues Base-Dokument  wieder mit Slashs z.B.: c:/temp/sloffice/slo.odb
' eine gleichnamige Datei darf nicht existieren! siehe oben
objDataSource.DatabaseDocument.storeAsURL "file:///c:/temp/sloffice/slo.odb", Array()

' registriert die Datenbank "slo" in der Registrierung in OpenOffice
objConnection.registerObject "slo", objDataSource

' schließt das Base-Dokument
objDataSource.DatabaseDocument.close True