<code>
Dim errDef, i
WScript.Echo "VBScript-Errors:"
WScript.Echo "Number", "Description"
On Error Resume Next
Err.Raise 1
errDef = Err.Description
For i=1 to 2^16-1
Err.Clear
Err.Raise i
If Err.Description <> errDef Then
WScript.Echo Left(Err.Number &;; ":" &;; Space(6), 6), Err.Description
End if
Next
</code>