xmlvalidate.vbs

if WScript.Arguments.Count = 0 then
    WScript.Echo "Missing parameters"
else

	Set xmlDoc = _
	  CreateObject("Microsoft.XMLDOM")

	xmlDoc.Async = "False"
	xmlDoc.Load(WScript.Arguments(0))
	Select Case xmlDoc.parseError.errorCode
		Case 0 
			WScript.Echo "Valid"
		Case Else
			WScript.Echo "ERROR! Failed to validate" &_
           WScript.Arguments(0) & vbCrLf & xmlDoc.parseError.reason & vbCr & _
          "Error code: " & xmlDoc.parseError.errorCode & ", Line: " & _
                           xmlDoc.parseError.line & ", Character: " & _
                           xmlDoc.parseError.linepos & ", Source: " & _
                           Chr(34) & xmlDoc.parseError.srcText & _
                           Chr(34) & " - " & Now & vbCrLf 
	End Select
end if