You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
729 B
25 lines
729 B
Option Explicit
|
|
|
|
Dim objMetaUtil
|
|
Dim objError
|
|
Dim strKey
|
|
|
|
Set objMetaUtil = WScript.CreateObject("MSWC.MetaUtil")
|
|
|
|
For Each objError In objMetaUtil.CheckSchema("LM")
|
|
WScript.Echo(objError.Key & "; " &_
|
|
objError.Property & "; " &_
|
|
objError.Id & "; " &_
|
|
objError.Severity & "; " &_
|
|
objError.Description)
|
|
Next
|
|
|
|
For Each strKey In objMetaUtil.EnumAllKeys("")
|
|
For Each objError In objMetaUtil.CheckKey(strKey)
|
|
WScript.Echo(objError.Key & "; " &_
|
|
objError.Property & "; " &_
|
|
objError.Id & "; " &_
|
|
objError.Severity & "; " &_
|
|
objError.Description)
|
|
Next
|
|
Next
|