VBS script of taskkill with log in txt

VBS script of taskkill with log in txt 

Dim objFS, objFile, WshShell, intTemp, arrProcs, i
Const ForAppending = 8
 
arrProcs = Array("winword.exe", "excel.exe", "access.exe")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.OpenTextFile("C:\CTM_killer_log.txt", ForAppending, True)
objFile.WriteLine Now
Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 To Ubound(arrProcs)
    intTemp = WshShell.Run("taskkill /f /IM " & arrProcs(i), 0, True)
    If intTemp = 0 Then
        objFile.WriteLine "Процесс " & UCase(arrProcs(i)) & " завершён успешно."
    Else
        objFile.WriteLine "Процесс " & UCase(arrProcs(i)) & " не завершён. Код ошибки: " & intTemp & "."
    End If
Next
objFile.Close
Set objFile = Nothing
Set objFS = Nothing
WSCript.Echo "Задание по завершению процессов обработано." & vbNewLine & "Файл журнала: C:\CTM_killer_log.txt"
WScript.Quit 0