VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CScriptError"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Description As String
Public Source As String
Public LineNumber As Long
Public CharPosition As Long
Public SourceLine As String
Public Scode As Long

Public Function AsString() As String
   AsString = _
        "Source: " & Source & vbCrLf & _
        "Description: " & Description & vbCrLf & _
        "Line: " & CStr(LineNumber) & vbCrLf & _
        "Char: " & CStr(CharPosition) & vbCrLf & _
        "SCODE: &H" & Hex$(Scode) & vbCrLf & _
        "Text: " & SourceLine
End Function

