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

☑

0 Азат

16.01.07

✎

15:20

Собственно, сабж. На компе установлено 3 принтера, имена могут меняться... Как можно получить список имен принтеров?

1 Deon

16.01.07

✎

15:21

Тут надо Абрахамса звать

2 Волшебник

модератор

16.01.07

✎

15:22

WSH может поможет?

3 DayDreamer

16.01.07

✎

15:30

Управляем принтерами из 1С интерактивно/программно без ВК...

4 Азат

16.01.07

✎

15:33

Все, разобрался, всем спасибо

5 VasilyKushnir

16.01.07

✎

16:06

Процедура Сформировать()
// Все принтера (доступные)
wshNetwork = createObject("WScript.Network");
oPrinters = wshNetwork.EnumPrinterConnections();
i = 0;

Пока i < oPrinters.Count() - 1 Цикл
Сообщить ("Порт " + oPrinters.Item(i+1));
i = i + 2;
КонецЦикла;

// Принтер по умолчанию
wshPrint = CreateObject("WScript.Shell");
Prn = wshPrint.RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device");
Сообщить ("
|Принтер по умолчанию:");
Сообщить (Prn);

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

6 smaharbA

16.01.07

✎

16:08

(5) А локальные и сетевые (с портом тсп/ип) где будешь брать ?

7 VasilyKushnir

16.01.07

✎

16:17

Чистых сетевых у меня нет , но расшаренные на других компах и доступные с моего показыват.