vbs 关闭指定进程并重启这个进程

工程调用外部脚本   restart.vbs

功能：实现脚本目录某个.exe进程的关闭，并重新启动该程序代码如下

WScript.sleep 2000 '延时两秒'
Dim processNum
Dim path
path = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path+"\xxx.exe"
strComputter = "."
Set objWMIService = GetObject("winmgmts:"_& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService .ExecQuery _ ("Select * from Win32_Process Where Name = 'xxx.exe'")
For Each objProcess in colProcessList 
if objProcess .executablepath = path then
    processNum = processNum +1
    objProcess .Terminate()//关闭
Next
//重新启动
Dim WinScriptHost
Set WinScriptHost = CreateObject("WScript.Shell")
WinScriptHost .Run path, , true
Set WinScriptHost =Nothing