gifts2017

Список программ которые запускал пользователь

Опубликовал Maxim M (mmj14) в раздел Администрирование - Системное

Некоторое время назад у меня возник вопрос, какие программы запускались из под моего пользователя. Ответом на этот вопрос стала эта обработка.

Обработка выдаёт список программ, ярлыков и апплетов панели управления, которые запускались в профиле текущего пользователя.

Скачать файлы

Наименование Файл Версия Размер
SpisokProgrammKotoryeZapuskalPoljzovatelj.epf 44
.1247141129 7,02Kb
25.09.09
44
.1247141129 7,02Kb Скачать

См. также

PowerTools от 1 000
Подписаться Добавить вознаграждение
Комментарии
1. Юрий Тимофеев (Tatitutu) 09.07.09 16:33
Автор исправь имя файла (не правильно выложил файл для скачки)
SpisokProgrammKotoryeZapuskalPoljzovatelj.epf.clear.ep - вот что у тебя !
2. Никита (nikitan) 09.07.09 17:21
{ВнешняяОбработка.СписокПрограммКоторыеЗапускалПользователь(18)}: Ошибка при вызове метода контекста (Run): Произошла исключительная ситуация (0x80041021)
по причине:
Произошла исключительная ситуация (0x80041021)


Вот, собственно говоря и всё....

Так и тянется рука к минусу. Пока держусь....



Текст модуля формы весьма лаконичен:

Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)
Формируем(Данные);
КонецПроцедуры

Процедура ПриОткрытии()
Формируем(Данные);
КонецПроцедуры


Возникает законный вопрос: Что же это за супертайная процедура Формируем(Параметр) ???
3. Maxim M (mmj14) 09.07.09 17:58
(2) Возможно, не установлен WMI или ограничены права. Проверил на Win2003 и на Vista.
4. Никита (nikitan) 09.07.09 18:06
(3) не понял как WMI не установлен? Он со времен милениума в комплекте идет...
У меня WinXP pro SP3. Права администратора...
5. Сергей Рудаков (fishca) 10.07.09 11:52
(4) в службах может быть отключен ;)
6. Кирилл Коновалов (akkvamarin) 21.07.09 12:05
Нафига скрывать общий модуль? Что супер секретное, коммерческое решение? Не понимаю. Решается всё оч просто, и без WMI. Кому надо пожалуйста:

Shell = Новый COMОбъект("WScript.Shell");
СпешлПапка = Shell.SpecialFolders("Recent"); // папка где хранится история кликов пользователя, что запускал, что открывал
Избранное = Новый Файл(СпешлПапка);
Ярлыки = НайтиФайлы(Избранное.ПолноеИмя, "*.lnk"); // полный перечень всего что запускал пользователь
7. Maxim M (mmj14) 22.07.09 14:18
(6) ваш способ даёт список открытых документов и папок, а мой прежде всего список программ.
Ничего суперсекретного нет, тем более, тот кто интересуется всё равно узнает.