Код

Перем Обработчик, ОбработчикСобытий;

Процедура ПриОткрытии()
	ЗагрузитьВнешнююКомпоненту("EventProxy.dll");
	ОбработчикСобытий=СоздатьОбъект("Addin.EventProxy");
	ОбработчикСобытий.ГлубинаБуфераСобытий=200;
	Обработчик=СоздатьОбъект("WbemScripting.SWbemSink");
	ОбработчикСобытий.Источник(Обработчик,"WbemScripting.SWbemSink","WMISink");
	personate}!\\.\root\default");
	objWMIServices.ExecNotificationQueryAsync(Обработчик,
	"Select * from RegistryValueChangeEvent Where
	|Hive = 'HKEY_LOCAL_MACHINE' and
	|KeyPath = 'SYSTEM\\ControlSet001\\Control' and
	|ValueName = 'CurrentUser'");
КонецПроцедуры	// ПриОткрытии

Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
	Если (Источник="WMISink") и (Событие="OnObjectReady") Тогда
		Д=ЗначениеИзСтрокиВнутр(Данные);
		WMIObj=ОбработчикСобытий.ПолучитьОбъект(Д.ПолучитьЗначение(1));
		Сообщить(WMIObj.GetObjectText_());
	КонецЕсли;
КонецПроцедуры	// ОбработкаВнешнегоСобытия