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

bob02 · 28.12.2006, 08:55

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

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

Borland · 28.12.2006, 10:12

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

Код:

net use lpt1: \\printservername\printersharename

bob02 · 28.12.2006, 10:34

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

KomatoZo · 28.12.2006, 10:56

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 · 28.12.2006, 11:19

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

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

KomatoZo · 28.12.2006, 11:27

Мне лениво переделывать, вот код, который делает принтер с именем 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 · 29.12.2006, 05:18

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

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

28.12.2006, 08:55	# 1
bob02 Junior Member Регистрация: 23.11.2006 Сообщения: 92	создание bat, vbs файла для подключения юзеров к сетевому принтеру такая задача: дано: сетка с АД, на несколько объектов. в одном здании около 8 компьютеров, на каждом из этих компьютеров по 4-8 юзеров (посменно), каждый под своим аккаунтом. нужно: создать bat файл, который я закину в автозагрузку каждому пользователю, для подключения к сетевому принтеру. заранее спасибо за помощь. Последний раз редактировалось bob02, 28.12.2006 в 11:24.
	\| Цитировать

28.12.2006, 10:12	# 2
Borland Мяусный Мод IMHO Консультант-200(5,6) Регистрация: 14.08.2002 Адрес: Московская ПЛ, ракетный отсек Пол: Male Сообщения: 5 787	Требуется: принт-сервер (виндовая машина, с которой будет расшарен принтер). В принципе, если клиентов меньше 10 можно использовать 2k wks/XP Pro (лично я рекомендую 2k server). Сильно мощная машина не нужна, но желательно выделить отдельную машину - использование принт-сервера в качестве рабочей станции в моменты печати затруднительно. Расшаренный принтер подключается к порту lpt1: командой Код: net use lpt1: \\printservername\printersharename __________________ Не засоряйте форум "спасибами"! Для выражения благодарности существуют ПС и репутация! Читайте Правила! Распространенье наше по планете Особенно заметно вдалеке: В общественном парижском туалете Есть надписи на русском языке В. Высоцкий Московская ПЛ IMHO - отдых в Анапе
	\| Цитировать

28.12.2006, 10:34	# 3
bob02 Junior Member Регистрация: 23.11.2006 Сообщения: 92	2Borland : команду выполнил, но в списке принтеров расшаренный принтер не появился, хотя cmd сказал что устройство подключено. и понятно что приложения его не видят и еще можно принтер не к lpt цеплять а к usb порту, и какой будет синтаксис?
	\| Цитировать

28.12.2006, 10:56	# 4
KomatoZo ::VIP:: Регистрация: 14.05.2005 Сообщения: 953	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 и имя принтера на те, которые у Вас. __________________ "Поживем - увидим" - сказал слепой, больной СПИДом... Телепаты в отпуске. Все поголовно. Навсегда. И кому я что должен - всем простил.
	\| Цитировать

28.12.2006, 11:19	# 5
bob02 Junior Member Регистрация: 23.11.2006 Сообщения: 92	2 KomatoZo СЕНКС а нелья в скрипт добавить пару строк, чтобы принтер тот сетевой стал по умолчанию основным? p.s. если отправите в пешее эротическое путешествие обижаться не буду, сам понимаю что черезчур наглый. Последний раз редактировалось bob02, 28.12.2006 в 11:25.
	\| Цитировать

28.12.2006, 11:27	# 6
KomatoZo ::VIP:: Регистрация: 14.05.2005 Сообщения: 953	Мне лениво переделывать, вот код, который делает принтер с именем 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 __________________ "Поживем - увидим" - сказал слепой, больной СПИДом... Телепаты в отпуске. Все поголовно. Навсегда. И кому я что должен - всем простил.
	\| Цитировать

29.12.2006, 05:18	# 7
bob02 Junior Member Регистрация: 23.11.2006 Сообщения: 92	итоговый рабочий скрипт, который я использовал. Спасибо всем кто откликнулся и помог в создании скрипта 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
	\| Цитировать