Escribe un guion

Se requieren servicios de desarrollador web. Necesitas escribir un script para detener archivos en ejecución en el sistema. El objetivo es detener procesos de terceros (todos excepto los procesos del sistema). El script se escribe en el editor de scripts AVZ, se utiliza en él.
Ejemplo
Var Var Var Var Var.
i: entero;
Comenzar.
// Actualizando la lista de procesos
RefreshProcessList;
AddToLog ('Número de procesos = '+IntToStr' (GetProcessCount))
// Ciclo de análisis de la lista recibida
for i := 0 to GetProcessCount - 1 do comenzar
// Salida del PID del proceso y su nombre
AddToLog(IntToStr(GetProcessPID(i)) + '+ GetProcessName(i)');
// Deteniendo el proceso bajo condición
if pos('trojan.exe', LowerCase(GetProcessName(i))) > 0 then
TerminateProcess(GetProcessPID(i))
fin;
Fin.

Se utilizaron los siguientes ejemplos: AddToLog, GetProcessCount, GetProcessName, GetProcessPID, RefreshProcessList, TerminateProcess

Este ejemplo demuestra el uso de todas las funciones descritas anteriormente para trabajar con procesos. Primero, la lista de procesos se actualiza utilizando la función RefreshProcessList. Luego, la lista se visualiza en un bucle con la salida de información en el protocolo.
Además, los procesos cuyo nombre de archivo ejecutable contiene el texto “trojan.exe” se terminan llamando a TerminateProcess, al cual se transmite el identificador del proceso (PID).