Per Batch komplexe Sache machen

echo off

rem scheduler-service und scheduler

net stop "AcrSch2Svc"

rem wartezeit 2 sekunden
 
ipconfig | find /i "ip-adresse"  
ping /n 3 localhost >nul  

rem monitor beenden

taskkill /im trueimagemonitor.exe /F

@echo off & setlocal 

title Prozess beenden
color F1

start calc.exe
start notepad.exe

set Programm=calc.exe
set Programm2=notepad.exe

:start

tasklist |find /i "%Programm%" >nul

if %errorlevel% == 0 (
echo Das Programm "%Programm%" leauft gerade!
ping /n 5 localhost >nul 
goto start
) else (
echo Das Programm "%Programm%" leauft gerade nicht!
goto taskkill
)

:taskkill
TaskKill /IM %Programm2%
pause

Option Explicit

dim shell, Application, App2

set shell = CreateObject("WScript.Shell")
set Application = Shell.Exec("calc")
set App2 = Shell.Exec("notepad")


Do While Application.Status = 0

WScript.Sleep 100

Loop

shell.run "taskkill /F /IM Notepad.exe", 0, true

calc.exe & ipconfig.exe

command1 & command2