<%
'Carrage Return + Line Feed pair
Dim CRLF
CRLF = CHR(13) + CHR(10)
Sub DisplayCheckError(ByRef objSchemaError)
Dim strId
Dim strSeverity
Dim strDescription
Dim strKey
Dim strProperty
strId = CStr(objSchemaError.Id)
strSeverity = CStr(objSchemaError.Severity)
strDescription = objSchemaError.Description
strKey = objSchemaError.Key
strProperty = CStr(objSchemaError.Property)
Response.Write("Id: " & strId & "
" & CRLF)
Response.Write("Severity: " & strSeverity & "
" & CRLF)
Response.Write("Description: " & strDescription & "
" & CRLF)
Response.Write("Key: " & strKey & "
" & CRLF)
Response.Write("Property: " & strProperty & "
" & CRLF)
End Sub
Dim objMetaUtil
Dim objKeys
Dim strKey
Dim objErrors
Dim objError
'Create the MetaUtil object
Set objMetaUtil = Server.CreateObject("MSWC.MetaUtil.1")
Set objKeys = objMetaUtil.EnumAllKeys("")
For Each strKey In objKeys
Response.Write("" & strKey & ":
" & CRLF)
Set objErrors = objMetaUtil.CheckKey(strKey)
For Each objError In objErrors
DisplayCheckError objError
Response.Write("
" & CRLF)
Next
Next
Response.Write("
" & CRLF)
Response.Write("Done
")
'Clean up the reference to IIS.MetaUtil
Session.Abandon
%>