есть такой логон-скрипт pubprn.vbs

[qwesty Профиль]

есть такой логон-скрипт pubprn.vbs для подключения принтера клиентам w2k:
----------------------
Option Explicit
Dim oNetwork, sPrintPath
Set oNetwork = CreateObject("WScript.Network")
sPrintPath = "\\Buh_server\hplaserj"
oNetwork.AddWindowsPrinterConnection sPrintPath
oNetwork.SetDefaultPrinter sPrintPath
----------------------
но только он работает с политикой юзеров, а с политикой компьютеров - нет, во время выполнения сценария говорит что не может найти путь к файлу и при это показывает этот же путь: \\fitnes_center\SysVol\fitnes_center\Policies\{C1C19AF7-36EE-4A72-80B8-A6FB80B2CEC3}\Machine\Scripts\Startup
чё ему надо не пойму, может кто-нибудь уже мучился над этим, посоветуйте, и вообще гденибудь есть готовые примеры сразных .vbs-скриптов, конкретных чтобы поменял имена для своей локалки и всё

[domovoy]

Ну вообще то сетевой принтер и должен подключаться для пользователя а не для компьютера.
Но если нужет скрипт, посмотри это пример Сценарии подключения к принтерам
там и для пользователей и для компьютеров есть.

[qwesty Профиль]

!!!!!!!!!!!!!!!!!!!!!!СПАСИБО, помоему то что надо, даже больше, щас попробую !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[qwesty Профиль]

попробовал, "не правильно задано имя принтера", хотя в уже загруженой операционке все работает ....... может что-то нужно менять в групповой политике: там есть синхронное-асинхронное выполнение скриптов, а? .....

[GifteD]

qwesty
Пожалуйста подробней.
Какая политака, какой скрипт и т.д.

[qwesty Профиль]

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

скрипт - вот-такой , взят с http://www.networkdoc.ru/files/insop/wh ... print.html и немного мной испорчен

---------------------
Option Explicit
Dim oNetwork, sPrintPath, sLocate
Set oNetwork = CreateObject("WScript.Network")
' Begin callout A
sLocate =_
InputBox("Выберите принтер: 1 - Рецепция, 2 - Боулинг, 3 - It-отдел")
' End callout A
Select Case sLocate
Case "1"
sPrintPath = "\\Buh_server\hplaserj"
Case "2"
sPrintPath = "\\Bowling\hplaserj"
Case "3"
sPrintPath = "\\Ito\HP"
Case Else
' Begin callout B
sLocate =_
InputBox("повторите выбор: 1 - Рецепция, 2 - Боулинг, 3 - It-отдел")
' End callout B
Select Case sLocate
Case "1"
sPrintPath = "\\Buh_server\hplaserj"
Case "2"
sPrintPath = "\\Bowling\hplaserj"
Case "3"
sPrintPath = "\\Ito\HP"
Case Else
End Select
oNetwork.AddWindowsPrinterConnection sPrintPath
oNetwork.SetDefaultPrinter sPrintPath
End Select
----------------------
а при загрузке - ошибка -"не удается найти файл по указанному пути
\\fitnes_center\SysVol\fitnes_center\Policies\{C1C19AF7-36EE-4A72-80B8-A6FB80B2CEC3}\Machine\Scripts\Startup"

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

[GifteD]

Принтеры перечислины в AD?