[问题求助] 这种监视PID与否并作出相应动作vbs可以做到吗-附上同功能BAT

set wsShell=createobject("wscript.shell")
 
do
    if not isProcessExists("cmd.exe") then
        wsShell.run """a.exe""",1
    end if
    WScript.Sleep 1000*10
loop
 
 
Private Function isProcessExists(proName)
    Set objWMIService = GetObject("winmgmts:" & "{impersonationlevel=impersonate}!\\.\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name='" & proName & "'")
    isProcessExists = (colProcessList.Count <> 0)
End Function COPY

@echo off
for /f %%a in ('ppids') do set 我的pid=%%a
set 我的pid
pauseCOPY

@echo off
:: @set "DebugOff= ' "
@call :_CmdPid "%~0"
:: ↑ 此行不能写在标签内，建议写在脚本开头
echo CMD PID: %CmdPid%
pause
 
goto :eof
:_CmdPid
  (echo For Each objItem In GetObject^("winmgmts:\\.\root\cimv2:win32_process"^).Instances_
  echo   If LCase^(objItem.Name^)=LCase^("cmd.exe"^) And InStr^(1,objItem.CommandLine,"%~1",vbTextCompare^)^>0 Then _
  echo       CurPID=objItem.ProcessID %DebugOff%: WScript.Echo CurPID,objItem.Name,objItem.CommandLine
  echo Next
  echo WScript.Quit^(CurPID^))>"%tmp%\CmdPid.vbs"
  CScript //NoLogo "%tmp%\CmdPid.vbs"
  set CmdPid=%ErrorLevel%
  del /q "%tmp%\CmdPid.vbs"
  goto :eofCOPY

@echo off
::设置再次检测等待时间
set xtime=10
 
for /f "tokens=2" %%a in ('tasklist /v ^| findstr /c:"- %0"') do (
    set "pid=%%a"
)
echo,%pid%
 
:recheck2
::查看pid是否存在并作出判断后动作
(for /f "skip=2 tokens=2 delims=," %%b in ('tasklist /fo csv /nh') do @echo=%%~b)|findstr /i "\<%pid%\>">nul
if "%errorlevel%"=="0" (ping -n %xtime% 127.1>nul&goto recheck2) else start a.exe&goto recheckCOPY

@echo off
::设置再次检测等待时间
set xtime=10
 
set "myTitle=%date% %time%"
title %myTitle%
for /f "tokens=2" %%i in ('tasklist /v ^| findstr /c:"%myTitle%"') do (
    set "pid=%%i"
)
echo,%pid%
 
:recheck2
::查看pid是否存在并作出判断后动作
(for /f "skip=2 tokens=2 delims=," %%b in ('tasklist /fo csv /nh') do @echo=%%~b)|findstr /i "\<%pid%\>">nul
if "%errorlevel%"=="0" (ping -n %xtime% 127.1>nul&goto recheck2) else start a.exe&goto recheckCOPY