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

[GreenIce]

Все доброго времени суток!

Подскажите существует ли возможность с помощью скрипта, батника или ГП установить пользователю принтер по умолчанию, на W2000?

[foss]

существует.

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

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]

Спасибо!

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

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

[foss]

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

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

[GreenIce]

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

[foss]

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


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

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

[GreenIce]

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

[amel27]

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

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