Установка принтера по умолчанию

foss · Отправлено: **18:30, 16-05-2007** | #2

существует.

подключение сетевого принтера и назначение дефолтным

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection "\\PrintServer1\Xerox300"
WshNetwork.SetDefaultPrinter "\\PrintServer1\Xerox300"

назначения дефолтным

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'ScriptedPrinter'")

For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()
Next

Это на vbs скрипте

GreenIce · Отправлено: **20:55, 16-05-2007** | #3

Спасибо!

А если установленно несколько локальных принтеров, как тогда? или все равно?

И во втором варианте, в какое место нужно воткнуть имя принтера?

foss · Отправлено: **09:20, 17-05-2007** | #4

'ScriptedPrinter' это и есть твой принтер

Если установленно несколько локальных принтеров, то что надо сделоть тогда?

GreenIce · Отправлено: **22:04, 17-05-2007** | #5

Да со 'ScriptedPrinter' сам уже разобрался, только выдается сообщение что у объекта нет свойства SetDefaultPrinter(), может ошибка в названии?

foss · Отправлено: **21:50, 18-05-2007** | #6

Если принтер у тебя уже подключен то скрипт выглядет так:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.SetDefaultPrinter "\\PrintServer1\Xerox300"

У мня на Win 2000 и Win XP и Win2003 ST этот скрипт выполняется и все нормально.

GreenIce · Отправлено: **09:39, 19-05-2007** | #7

Не, мне нужно из 6 локальных принтеров выбрать 1.
Я выполняю второй скрипт с названием принтера, а он говорит что у объекта нет свойства SetDefaultPrinter()

amel27 · Отправлено: **16:52, 19-05-2007** | #8

смотри ветки реестра:

"HKCU\Software\Microsoft\Windows NT\CurrentVersion\Devices"
"HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows", параметр "Device"