restart_proc.vbs

' Credit where it is due:
' http://computerperformance.co.uk/
' https://msdn.microsoft.com/en-us/library/aa394372(v=vs.85).aspx
' ----------------------------------------------------------------------
Option Explicit
Dim objWMIService, objShell, objProcess
Dim strComputer, colProcess, procName, procPath

procName = "notepad++.exe"
strComputer = "."

Set objWMIService = GetObject("winmgmts:!\\" & strComputer & "\root\cimv2") 

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")

For Each objProcess in colProcess
If Len(objProcess.ExecutablePath) > 0 And objProcess.Name = procName Then
	procPath = objProcess.ExecutablePath
	objProcess.Terminate()
End If
Next

Set objShell = CreateObject("WScript.Shell")
objShell.run """"&procPath&"""", 0, false

WScript.Quit