How to kill Application process or multiple processes using VBscript

''The below code can be used to kill a process/ processes, running in the Windows Task Manager.

strProcessNames = "EXCEL.exe|chrome.exe|notepad.exe"
Call KillProcesses(strProcessNames)

Function KillProcesses(strProcessNames)
''Get Current User Logged In
Set objNetwork1 = CreateObject("Wscript.Network")
currUser1 = objNetwork1.UserName
''Kill Process(es) based on *.exe and current user
strComputer = "."
Set objWMIService1 = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
''Split the Processes by the delimiter and loop them
KillProcess1 = Split(strProcessNames,"|")
For x = 0 to Ubound(KillProcess1)
Set colProcessList1 = objWMIService1.ExecQuery _
("SELECT * FROM Win32_Process WHERE Name ='"& KillProcess1(x) &"'")
For Each objProcess1 in colProcessList1
If objProcess1.GetOwner ( User, Domain ) = 0 Then
If UCase(User) = UCase(currUser1) then
objProcess1.Terminate()
end if
end if
Next
Next
End Function