создание bat файла для подключения юзеров к сетевому принтеру

[bob02]

такая задача:
дано: сетка с АД, на несколько объектов.
в одном здании около 8 компьютеров, на каждом из этих компьютеров по 4-8 юзеров (посменно), каждый под своим аккаунтом.
нужно: создать bat файл, который я закину в автозагрузку каждому пользователю, для подключения к сетевому принтеру.

заранее спасибо за помощь.

[Borland]

Требуется: принт-сервер (виндовая машина, с которой будет расшарен принтер). В принципе, если клиентов меньше 10 можно использовать 2k wks/XP Pro (лично я рекомендую 2k server). Сильно мощная машина не нужна, но желательно выделить отдельную машину - использование принт-сервера в качестве рабочей станции в моменты печати затруднительно.
Расшаренный принтер подключается к порту lpt1: командой

net use lpt1: \\printservername\printersharename

[bob02]

2Borland : команду выполнил, но в списке принтеров расшаренный принтер не появился, хотя cmd сказал что устройство подключено. и понятно что приложения его не видят
и еще можно принтер не к lpt цеплять а к usb порту, и какой будет синтаксис?

[KomatoZo]

bob02
У меня есть VBScript. Рабочий.

strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
A = 0
' Проверка, не на сервере ли запускаем
For Each objAdapter in colAdapters
    if objAdapter.DNSHostName = "Server1" or objAdapter.DNSHostName = "Server2"  then
	A = 1    
    End If
Next
' Подключаем
if A = 0 then
	Set WshNetwork = CreateObject("WScript.Network")
	WshNetwork.AddWindowsPrinterConnection "\\Server\HP LaserJet 2200 Series PCL 6"
End If

UPD : Естественно, Server1, Server2 нужно заменить на имена компьютеров, на которых запускать скрипт не надо, а Server и имя принтера на те, которые у Вас.

[bob02]

2 KomatoZo СЕНКС
а нелья в скрипт добавить пару строк, чтобы принтер тот сетевой стал по умолчанию основным?

p.s. если отправите в пешее эротическое путешествие обижаться не буду, сам понимаю что черезчур наглый.

[KomatoZo]

Мне лениво переделывать, вот код, который делает принтер с именем ScriptedPrinter принтером по-умолчанию. Доработайте его и объедините с предыдущим.

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

[bob02]

итоговый рабочий скрипт, который я использовал. Спасибо всем кто откликнулся и помог в создании скрипта

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
A = 0
' Проверка, не на сервере ли запускаем
For Each objAdapter in colAdapters
if objAdapter.DNSHostName = "ipdnsservera" or objAdapter.DNSHostName = "ipdnsservera" then
A = 1
End If
Next
' Подключаем
if A = 0 then
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "put'doprintera"
WSHNetwork.SetDefaultPrinter "put'doprintera"
End If