VBScript obsługa błedów on error

Cześć,
Nie wiem jak sobie poradzić z obsługą błędów w skrypcie tak, żeby raport błędów zapisywał się w pliku txt. W tej chwili mam zapisane z msgbox-em

On Error Resume Next


If Err.Number<>0 Then
  MsgBox ("Error " & Err.Number & " description=" & Err.Description)
  Err.Clear
End If

Jak to zapisać, żeby raport nie wyrzucał komunikatu tylko zapisywał go w pliku?

On Error Resume Next
If Err.Number<>0 Then
  objFSO.CreateTextFile(“C:\file.txt”)
  Set objFileToWrite = CreateObject(“Scripting.FileSystemObject”).OpenTextFile(“C:\file.txt”,2,true)
  objFileToWrite.WriteLine("Error " & Err.Number & " description=" & Err.Description)
  objFileToWrite.Close
  Err.Clear
End If