Dim objFS, objFile, WshShell, intTemp, arrProcs, i
Const ForAppending = 8
 
arrProcs = Array("1cv7s.exe","scalc.exe","swriter.exe")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.OpenTextFile("E:\BackUp\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 & "Файл журнала: f:\CTM_killer_log.txt"
WScript.Quit 0