Файл=КаталогВременныхФайлов()+_GetPerformanceCounter()+".txt";
ЗаголовокСистемы(Файл);
WshShell=СоздатьОбъект("WScript.Shell");
Команда = Шаблон("tasklist /v /fo csv /nh|find /i ""%username%""|find /i ""[Файл]"">""[Файл]""");
WshShell.Run("cmd /c " + Команда, 0, -1);
Текст=СоздатьОбъект("Текст");
Текст.КодоваяСтраница(1);
Текст.Открыть(Файл);
Сп=СоздатьОбъект("СписокЗначений");
Сп.ИзСтрокиСРазделителями(Текст.ПолучитьСтроку(1));
Сообщить(Сп.ПолучитьЗначение(Мин(2,Сп.РазмерСписка())));
ФС.УдалитьФайл(Файл);

Автор примера - smaharbA.