Получить список принтеров &НаКлиенте Функция ПолучитьМассивПр | 1C программист

Получить список принтеров

&НаКлиенте
Функция ПолучитьМассивПринтеров()

МассивПринтеров = Новый Массив;

Попытка
objWMIService = ПолучитьCOMОбъект("winmgmts:\\.\root\CIMV2");
Исключение
ТекстСообщения = НСтр("ru = 'Список принтеров не доступен!'");
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
Возврат МассивПринтеров;
КонецПопытки;

Выборка = objWMIService.ExecQuery("SELECT * FROM Win32_Printer",,48);

Для Каждого objItem Из Выборка Цикл
МассивПринтеров.Добавить(objItem.Caption);
КонецЦикла;

Возврат МассивПринтеров;
КонецФункции

@odin1C_rus