Модераторы: bartram, Akella
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сетевые принтеры в организации 
V
    Опции темы
mihanik
Дата 16.11.2009, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109
Привет!

У меня в организации супер одарённые пользователи.
Наподключают себе разных сетевых принтеров и довольны, как 7 копеек...

Короче!
Написал скриптик, который назначил на соответствующие подразделения в своей организации.

Скрипт сначала сносит "к монахам" все имеющиеся на компе СЕТЕВЫЕ принтеры, а затем подключает только те СЕТЕВЫЕ принтеры, что нужны.

(можно, конечно, и по-другому управлять принтерами и доступом к ним, но мне в моей ситуации так проще)

Код

' Подключение нужных сетевых принтеров в организации
'
' При написании скрипта использовал материал со страницы
'
' http://www.script-coding.info/WSH/WshNetwork.html
'

 Option Explicit

Dim WSHNetwork, Printers, I, PrnList(1), N

' Список сетевых принтеров, которые нужно установить
PrnList(1)= "\\Mserver\Xerox"
PrnList(2)= "\\Mserver\CanonMFU"
PrnList(3)= "\\Mserver\HPColor"
N = UBound (PrnList)

' Создаем нужные объекты
Set WSHNetwork = CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections

' Удаляем все сетевые принтеры
If Printers.Count > 0 Then
    For I=1 To Printers.Count Step 2
     WSHNetwork.RemovePrinterConnection Printers.Item(I)
    Next
End If

Set Printers = Nothing
Set Printers = WshNetwork.EnumPrinterConnections

' Устанавливаем нужные сетевые принтеры
For I = 1 To N
    WSHNetwork.AddWindowsPrinterConnection PrnList(I)
Next

' Устанавливаем второй по счёту принтер принтером "По умолчанию"
WshNetwork.SetDefaultPrinter PrnList(2)

Set Printers = Nothing
Set WSHNetwork = Nothing



Может, пригодиться кому...

 smile 



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Itsys
Дата 16.11.2009, 22:26 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1338
Регистрация: 21.1.2008
Где: г. Москва

Репутация: нет
Всего: 34
Обычно подключаю принтеры вместе с шарами при логоне через net use. Помоему намного проще.
PM MAIL WWW Skype   Вверх
Akina
Дата 16.11.2009, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 42
Всего: 454
И где ты его стартуешь?
На самом деле, если в локальных политиках разрешить active discovery - половина принтеров сама зарегается. Причём независимо от того, есть этот принт уже или его нет. Конечно, это в бездоменке...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 16.11.2009, 23:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109
По поводу

Цитата(Itsys @  16.11.2009,  22:26 Найти цитируемый пост)
Помоему намного проще. 



Цитата(mihanik @  16.11.2009,  21:09 Найти цитируемый пост)
(можно, конечно, и по-другому управлять принтерами и доступом к ним, но мне в моей ситуации так проще)



Просто мне так удобно.


Цитата(Akina @  16.11.2009,  22:37 Найти цитируемый пост)
Конечно, это в бездоменке... 

У меня домен

Добавлено через 2 минуты и 4 секунды
Цитата(Akina @  16.11.2009,  22:37 Найти цитируемый пост)
И где ты его стартуешь?


Групповые политики. Скрипт при входе пользователя.



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akella
Дата 17.11.2009, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 73
Всего: 329
mihanik, ест же спец темя для скриптов  smile 
PM MAIL   Вверх
mihanik
Дата 17.11.2009, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 61
Всего: 109
Цитата(Akella @  17.11.2009,  16:51 Найти цитируемый пост)
mihanik, ест же спец темя для скриптов  smile  


Да я что-то того... Этого... Не того...
 smile 



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Windows"
December
bartram
Akella

Запрещается!

1. Обсуждать взлом и делиться кряками

2. Способствовать созданию и распространению вирусов

  • Для бессмертных бородатых вопросов типа Win vs Nix есть специальный форум Религиозные Войны
  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • ВСЕГДА УКАЗЫВАЙТЕ ВЕРСИЮ ОС

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, December, bartram, Akella.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Windows | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0704 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.