1C программист

Получить список принтеров
&НаКлиенте

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

    

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



    Попытка

        objWMIService = ПолучитьCOMОбъект("winmgmts:\\.\root\CIMV2"); 

    Исключение

        ТекстСообщения = НСтр("ru = 'Список принтеров не доступен!'");

        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);

        Возврат МассивПринтеров;

    КонецПопытки;

    

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

    

    Для Каждого objItem Из Выборка Цикл  

        МассивПринтеров.Добавить(objItem.Caption);

    КонецЦикла;

    

    Возврат МассивПринтеров;

КонецФункции
✍️ @odin1C_rus