1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
Wscript.Echo "Name: " & objPrinter.Name
Wscript.Echo "Location: " & objPrinter.Location
Wscript.Echo "Default: " & objPrinter.Default
Wscript.Echo
Next
Сохранить как, например, printers.vbs. Для вывода в текстовый файл запускать
cscript printer.vbs >> printers.txt
При желании доработав скрипт можно поднимать различные настройки принтеров.
--
чем дальше в лес, тем больше нас
