Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > MS Windows > Сетевые принтеры в организации


Автор: mihanik 16.11.2009, 21:09
Привет!

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

Автор: Itsys 16.11.2009, 22:26
Обычно подключаю принтеры вместе с шарами при логоне через net use. Помоему намного проще.

Автор: Akina 16.11.2009, 22:37
И где ты его стартуешь?
На самом деле, если в локальных политиках разрешить active discovery - половина принтеров сама зарегается. Причём независимо от того, есть этот принт уже или его нет. Конечно, это в бездоменке...

Автор: mihanik 16.11.2009, 23:20
По поводу

Цитата(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 Найти цитируемый пост)
И где ты его стартуешь?


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

Автор: Akella 17.11.2009, 16:51
mihanik, ест же спец темя для скриптов  smile 

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


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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)