XML mit VBScript validieren

[Gab]

Hallo,

ich baue gerade einen kleinen Script, um XML-Files auf ein Schema zu validieren.
Allerdings bringt mir die derzeitige Version keine Fehlermeldung, auch wenn ein Fehler vorliegt:

Function OrgDateiEinlesen (Datendatei)
 ' Schema definieren und laden
 Dim schema, SchemaCache
'  set  schema = CreateObject (ma
 Set schema      = CreateObject("Msxml2.DOMDocument.6.0")
 Set SchemaCache = CreateObject("Msxml2.XMLSchemaCache.6.0")
 schema.ASync = False
 schema.Load (schemapfad)
 SchemaCache.Add "http://www.w3.org/1999/xhtml", schema

' Die Originaldatei laden
 Set OrgDatei = CreateObject("Msxml4.DOMDocument.6.0")
 ' Schema zuweisen
 Set OrgDatei.schemas = SchemaCache

OrgDatei.async=False
 OrgDatei.validateOnParse = True
 OrgDatei.resolveExternals = False
 OrgDatei.setProperty "SelectionLanguage", "XPath"
 OrgDatei.load (Datendatei)
 WScript.Echo OrgDatei.parseError.errorCode
End Function

Woran kann es liegen und wie sieht eine Lösung aus?
Danke
Gab