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

[GreenIce]

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



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

[GreenIce]

существует.



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



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]

Спасибо!



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



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

[GreenIce]

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



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

[foss]

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

[GreenIce]

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





Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.SetDefaultPrinter "\\PrintServer1\Xerox300"



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

[foss]

Не, мне нужно из 6 локальных принтеров выбрать 1.

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

[GreenIce]

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



"HKCU\Software\Microsoft\Windows NT\CurrentVersion\Devices"

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