Как получить имена всех принтеров на сервере

под винду


Перем Серверы;

Перем ScrptCtrl;



Процедура ПриОткрытии()

    ЗаполнитьСписокПринтеров();

КонецПроцедуры



Процедура ЗаполнитьСписокПринтеров()

    

    Серверы = Новый СписокЗначений;

    Серверы.Добавить("Omega"); //свои имена серверов

    Серверы.Добавить("Delta");

    

    Для инд1=1 по Серверы.количество() Цикл                       

        сервер = серверы.Получить(инд1-1 );

        Попытка

            m = ScrptCtrl.Modules.item("Global");

            co = m.CodeObject;

            Принтеры = co.prn_list(сервер.Значение);



            Для инд2=1 по СтрЧислоВхождений(принтеры, Символы.ПС) Цикл

                принтер = СтрПолучитьСтроку(принтеры, инд2);

                СтрокаТЗ = ТаблицаПринтеров.Добавить();

                СтрокаТЗ.Сервер = сервер;

                СтрокаТЗ.Принтер = принтер;

            КонецЦикла;

        Исключение

            Сообщить(ОписаниеОшибки());

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

    КонецЦикла;

       ТаблицаПринтеров.Сортировать("Принтер");

    

КонецПроцедуры    



Процедура ТаблицаПринтеровПередНачаломИзменения(Элемент, Отказ)

    

    Отказ = Истина;

    ответ = Вопрос("Очистить очередь печати на " + Элемент.ТекущаяСтрока.принтер + "?", РежимДиалогаВопрос.ДаНет);

    Если ответ = КодВозвратаДиалога.Да Тогда

        m2 = ScrptCtrl.eval("prn_CancelJobs(""" + Элемент.ТекущаяСтрока.принтер + """)");

    КонецЕсли;    



КонецПроцедуры



ScrptCtrl= Новый COMОбъект("MSScriptControl.ScriptControl");

ScrptCtrl.Language="VBScript";

ScrptCtrl.AddCode("

|

|function prn_list(strComputer)

|    set objWMIService = GetObject(""winmgmts:"" & ""{impersonationLevel=impersonate}!\\"" & strComputer & ""\root\cimv2"")

|    set colInstalledPrinters = objWMIService.ExecQuery(""Select * from Win32_Printer"")

|    s = """"

|    For Each objPrinter in colInstalledPrinters

|        s = s & objPrinter.DeviceID & vbCrLf

|    Next

|   prn_list = s

|end function

|

|function prn_CancelJobs(strPrinter)

|    strComputer = "".""

|    set objWMIService = GetObject(""winmgmts:"" & ""{impersonationLevel=impersonate}!\\"" & strComputer & ""\root\cimv2"")

|    set colInstalledPrinters = objWMIService.ExecQuery(""Select * from Win32_Printer"")

|    For Each objPrinter in colInstalledPrinters

|        If objPrinter.DeviceID = strPrinter then

|            objPrinter.CancelAllJobs()

|        End If

|    Next

|   prn_CancelJobs = 167

|end function

|

|");