validering af XML fil

Jeg ved det er et to år gammelt spørgsmål, men her er et eksempel på
validering i VBS (i VB6 kan du bruge New og ikke CreateObject men ellers er det ens):

Set xsd = CreateObject("MSXML2.XMLSchemaCache.6.0")
xsd.Add "", "z.xsd"
Set xml = CreateObject("MSXML2.FreeThreadedDOMDocument.6.0")
xml.Async = False
xml.validateOnParse = True
xml.schemas = xsd
xml.Load("z.xml")
If xml.parseError.errorCode = 0 Then
  WScript.Echo "OK"
Else
  WScript.Echo "Error"
End If
Set xml = Nothing
Set xsd = Nothing