imho.ws |
|
|
Сообщения:
Перейти к новому /
Последнее
|
Опции темы |
28.12.2006, 08:55 | # 1 |
Junior Member
Регистрация: 23.11.2006
Адрес: Kazakhstan, Kyzylorda
Пол: Male
Сообщения: 156
|
создание bat, vbs файла для подключения юзеров к сетевому принтеру
такая задача:
дано: сетка с АД, на несколько объектов. в одном здании около 8 компьютеров, на каждом из этих компьютеров по 4-8 юзеров (посменно), каждый под своим аккаунтом. нужно: создать bat файл, который я закину в автозагрузку каждому пользователю, для подключения к сетевому принтеру. заранее спасибо за помощь. Последний раз редактировалось bob02; 28.12.2006 в 11:24. |
28.12.2006, 10:12 | # 2 |
СуперМод
IMHO Консультант 2005-2009 Регистрация: 14.08.2002
Адрес: Московская ПЛ, ракетный отс
Пол: Male
Сообщения: 14 405
|
Требуется: принт-сервер (виндовая машина, с которой будет расшарен принтер). В принципе, если клиентов меньше 10 можно использовать 2k wks/XP Pro (лично я рекомендую 2k server). Сильно мощная машина не нужна, но желательно выделить отдельную машину - использование принт-сервера в качестве рабочей станции в моменты печати затруднительно.
Расшаренный принтер подключается к порту lpt1: командой Код:
net use lpt1: \\printservername\printersharename
__________________
Не засоряйте форум "спасибами"! Для выражения благодарности существуют ПС и репутация! Соблюдайте Правила! Распространенье наше по планете Особенно заметно вдалеке: В общественном парижском туалете Есть надписи на русском языке В. Высоцкий |
28.12.2006, 10:34 | # 3 |
Junior Member
Регистрация: 23.11.2006
Адрес: Kazakhstan, Kyzylorda
Пол: Male
Сообщения: 156
|
2Borland : команду выполнил, но в списке принтеров расшаренный принтер не появился, хотя cmd сказал что устройство подключено. и понятно что приложения его не видят
и еще можно принтер не к lpt цеплять а к usb порту, и какой будет синтаксис? |
28.12.2006, 10:56 | # 4 |
::VIP::
Регистрация: 14.05.2005
Сообщения: 939
|
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
__________________
"Поживем - увидим" - сказал слепой, больной СПИДом... Телепаты в отпуске. Все поголовно. Навсегда. И кому я что должен - всем простил. |
28.12.2006, 11:19 | # 5 |
Junior Member
Регистрация: 23.11.2006
Адрес: Kazakhstan, Kyzylorda
Пол: Male
Сообщения: 156
|
2 KomatoZo СЕНКС
а нелья в скрипт добавить пару строк, чтобы принтер тот сетевой стал по умолчанию основным? p.s. если отправите в пешее эротическое путешествие обижаться не буду, сам понимаю что черезчур наглый. Последний раз редактировалось bob02; 28.12.2006 в 11:25. |
28.12.2006, 11:27 | # 6 |
::VIP::
Регистрация: 14.05.2005
Сообщения: 939
|
Мне лениво переделывать, вот код, который делает принтер с именем 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 |
Junior Member
Регистрация: 23.11.2006
Адрес: Kazakhstan, Kyzylorda
Пол: Male
Сообщения: 156
|
итоговый рабочий скрипт, который я использовал. Спасибо всем кто откликнулся и помог в создании скрипта
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 |
Теги (метки) |
vbs |
|
|