Процедура ПолучитьСписокПринтеров()
     wshNetwork=createObject("WScript.Network");
     oPrinters=wshNetwork.EnumPrinterConnections();
     i=0;
     Пока i<oPrinters.count()-1 Цикл
          Сообщить("Порт "+oPrinters.item(i)+" = "+oPrinters.item(i+1));
          i=i+2;
     КонецЦикла;
КонецПроцедуры