Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » vbs logon скрипт для подключения сетевых дисков

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7

Открыть новую тему     Написать ответ в эту тему

ginya

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Laki7a
Ну, можно и батником, но тогда 2 вопроса:
1) Мне надо подключать каждому пользюку свой диск, по пути \\server\share\%username%. Только в НТ нет переменной %username%. Может она просто по другому называется? Или может ее там ваще нет?... Как быть-та?
 
2) Как в батнике поставить проверку на приндлежность к группе, что бы это в нт работало?

Всего записей: 8 | Зарегистр. 16-02-2007 | Отправлено: 17:02 20-02-2007
Laki7a



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ginya
А много ли пользователей? И зачем вообще это делается? Я вот групповыми политиками переместил пользователям мои документы на сервак. Автоматически создаются папки для пользователя и всё просто замечательно!
 
Если про батники то думаю можно, залезь в тему Автоматизация  
http://forum.ru-board.com/topic.cgi?forum=8&topic=19088#1
 
Вообще всё зависит от правильной формулировки цели!!!!! Пойми зачем это тебе!

Всего записей: 146 | Зарегистр. 08-08-2005 | Отправлено: 08:07 21-02-2007
ginya

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Laki7a
Пользователей всего ~470. Компы НТ нужны, т.к. там спецПО, написанное 1000 лет назад неизвестно кем неизвестно как, но оч нужное.
У всех пользователей есть 3 стандартных сетевых диска.  
2 из них вида \\server\share\%username% ("мои доки" - 1 папка. А надо 2.)
1 просто \\server\share\
Плюс почти всем пользователям еще нужны различные сетевые диски вида \\server\share\. Всем разное кол-во разных дисков (всего около 20 путей).
Для этого я создал (читай: адаптировал) скрипт, подключающий диски в зависимости от членства в группе. Но в НТ он не работает. Пока у меня есть батник, который определяет тип системы, и в случае НТ скрипт не отрабатывается. И диски народу не подключаются. Но так оставлять низзя.
 
Зачем мне? Начальство требует. %)

Всего записей: 8 | Зарегистр. 16-02-2007 | Отправлено: 09:29 21-02-2007
Laki7a



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ginya
 
Ну согласен проблема. Но думаю решаемая. Сам признаюсь не знаю по этому изи в батниках в ссылке что я дал ))) я бы так сделал. Удачи!

Всего записей: 146 | Зарегистр. 08-08-2005 | Отправлено: 13:00 21-02-2007
SpectrosKop2



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Отличный скрипт. Очень помогает в работе.
Однако, есть один неприятный момент. Мне зачастую приходится перекидывать пользователей вместе с документами с одного сервера на другой. Для этого приходится непосредственно менять скрипт. Однако есть способ проще. Имя сервера можно передавать скрипту как параметр. Вот так:
 
Dim Args: Set Args = WScript.Arguments
 
'Make sure the expected number of arguments were provided on the command line.
'if not, print usage text and exit.
 
If (Args.Count < 1) Then
    PrintUsage()
    wscript.quit 0
End If
 
 
Dim server
 server = Args(0)
 
Sub PrintUsage()
    WScript.Echo "Usage:" + Chr(10) + _
                 "<Please enter server name OR ip address as argument>"
End Sub
 
 
 
А кроме того, изменения в реестр можно вносить не только с помощью запуска reg файла, но и с помощью команды  
WshShell.RegWrite strName, varValue, [strtype]
 
Метод RegWrite записывает в реестр имя параметра или значение параметра, указанное в аргументе varValue. Если аргумент strName заканчивается на обратный слеш (\), то RegWrite записывает в реестр varValue как имя параметра. Иначе RegWrite записывает в реестр varValue как значение параметра. С помощью необязательного аргумента strtype можно задать тип параметра: REG_SZ и REG_EXPAND_SZ определяют строковые значения, REG_DWORD — 32-разрядное целое значение и REG_BINARY — 32-разрядное двоичное значение.

Всего записей: 12 | Зарегистр. 16-10-2004 | Отправлено: 10:19 07-03-2007
ShinePhantom

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Что-то не пойму, а как быть, если пользователь у меня в двух группах разом?
Т.е. обычные пользователи получают себе диск в зависимости от отдела, т.е. группы безопасности.
А вот начальнику, которому нужно доступ к сразу двум папкам разных отделом, соответственно он и является членом двух групп, как быть?

Всего записей: 49 | Зарегистр. 24-04-2006 | Отправлено: 10:29 15-03-2007
ShinePhantom

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
В приницпе скрипт подключения дисков по группам пользователей работает. Однако на некоторых юзерах при логине выдает сообщение:
 
Сценарий: хххх\logon.vbs
Строка: 39
Символ: 1
Ошибка: 0х80005000
Код: 80005000
Источник:       (null)
 
 
в 39 строке:  
Set UserObj = GetObject("LDAP://" & strUserDN)  
 
 
Жмешь ОК - и диски подключаются. Однако что же это за ошибка и как избавиться?

Всего записей: 49 | Зарегистр. 24-04-2006 | Отправлено: 13:03 19-03-2007
DAphnie



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Т.к. в этой ветке я видел обсуждение вопросов маппинга принтеров, то спрошу - если подключаю принтер вот такой строчкой  
WshNetwork.AddPrinterConnection "lpt1","\\Server\HPLaserJ"
то как проверить - не существует ли уже это подключение, чтобы не выходила ошибка?
 
Спасибо!

----------
... нельзя впихнуть невпихуемое ...

Всего записей: 276 | Зарегистр. 10-09-2004 | Отправлено: 13:31 26-06-2007
NumberNot



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сообщение удалено
 
Прошу прощения не туда запостил

Всего записей: 99 | Зарегистр. 23-01-2006 | Отправлено: 00:10 03-07-2007 | Исправлено: NumberNot, 00:18 03-07-2007
IgorXI



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подкажите, у меня перестали подключатся автоматически диски в Windows Vista Ultimate, если выполнить скрипт в загруженном сеансе, то всё нормально, а при входе в систему все команды отрабатывают нормально, кроме подключений.

Всего записей: 126 | Зарегистр. 16-09-2003 | Отправлено: 06:23 13-08-2007
SergeyCVS



winextreme team
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IgorXI
отключи User Account Control (UAC)

----------
xxx: если цыплят зовут - цыпа, цыпа, цыпа
xxx: а утят - утя, утя, утя..
xxx: то пингвинов надо подзывать - пинг, пинг, пинг

Всего записей: 2445 | Зарегистр. 04-01-2002 | Отправлено: 12:14 13-08-2007
IgorXI



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SergeyCVS
Спасибо, действительно помогло, но неужели нельзя как-то выполнять скрипт с временно повышеными правами до администратора?

Всего записей: 126 | Зарегистр. 16-09-2003 | Отправлено: 06:19 14-08-2007
SergeyCVS



winextreme team
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
IgorXI

Цитата:
Спасибо, действительно помогло, но неужели нельзя как-то выполнять скрипт с временно повышеными правами до администратора?

нужно смотреть настройки uac

----------
xxx: если цыплят зовут - цыпа, цыпа, цыпа
xxx: а утят - утя, утя, утя..
xxx: то пингвинов надо подзывать - пинг, пинг, пинг

Всего записей: 2445 | Зарегистр. 04-01-2002 | Отправлено: 13:15 14-08-2007
strio912



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите почему скрипт не видит основную группу пользователя?
Как сделать чтоб видел.

Всего записей: 11 | Зарегистр. 10-02-2005 | Отправлено: 11:26 15-08-2007 | Исправлено: strio912, 12:26 15-08-2007
DarkSmoke



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Я извиняюсь за такой вопрос. В первые сталкиваюсь с скриптами, нужна помощь.
 
Вот скрипт написанный Etalon'ом, я его отредоктировал под свои нужды, но он у меня не запускается, выдает ошибку:
 
Ошибка: Предполагает наличие инструкции
Код: 800А0400
Источник: Ошибка компиляции Microsoft VBScript
 
Помогите запустить плиз
 

Цитата:
<job id="vbs">
      <script language="VBScript">
         Set WshNetwork = WScript.CreateObject("WScript.Network")
         WScript.Echo "Domain = " & WshNetwork.UserDomain
         WScript.Echo "Clone-4bc878bd3 = " & WshNetwork.ComputerName
         WScript.Echo "student = " & WshNetwork.UserName
         
         With WshNetwork
             Select Case .UserName
             case "Вася"
                       .MapNetworkDrive "Y:", "\\192.168.100.5\Temp"
             End Select  
         End With
      </script>
   </job>  

 
 

Всего записей: 962 | Зарегистр. 08-10-2005 | Отправлено: 11:56 30-08-2007
VirwolfLEOne

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DarkSmoke
Грохни строчки:

Цитата:
<job id="vbs">  
      <script language="VBScript">

и

Цитата:
      </script>  
   </job>  

короче первые две и последние две.

Всего записей: 33 | Зарегистр. 28-08-2007 | Отправлено: 22:27 31-08-2007
nem0xff

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!
переименование не работает на смонтированные сетевые диски, на локальные пожалуйста а на сетевые не хочет, в чем может быть проблема? в ручную естественно переименовать можно...

Всего записей: 2 | Зарегистр. 11-10-2007 | Отправлено: 15:01 11-10-2007
nem0xff

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
вобщем так... за имя  отображаемое в папке мой компьютер отвечает параметр реестра находящийся в HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\ЗДЕСЬ UNC путь примонтированного ресурса\
 
сам параметр называется _LabelFromReg (формат строковой)
в моем случае его нет вообще. если его создать и задать значение все отображается нормально, но это в XP в 2000 подругому и намного сложнее, если кому надо могу объяснить... отпишитесь

Всего записей: 2 | Зарегистр. 11-10-2007 | Отправлено: 10:09 12-10-2007
Strong_Gale

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Спасибо за скрипт - разобрался в теории что он делает, один ламерский вопрос остался - как его запустить в политике? Просто добавить в файлы сценарий - не работает...

Всего записей: 117 | Зарегистр. 24-01-2007 | Отправлено: 12:45 19-10-2007
unreal 777



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Скрипт чудесно работает, но иногда на Windows Server 2003 выдает вот такие ошибки.
 
Mapping network drive error: 424 0x1A8
Error description: Object required
Domain: DOMAIN
Computer Name: SERVER
User Name: admin
 
Device name: W:
Map path: \\DATA\Share
 
И так на каждую подключаемую букву. При  этом диски все равно подключаются.
 У меня подозрение, что это потому что под одним и тем же логином в систему сразу входят два пользователя ( админят с разных концов). Может быт кто-то подскажет более точно причину? Или куда копать?

Всего записей: 279 | Зарегистр. 05-09-2006 | Отправлено: 16:48 24-10-2007 | Исправлено: unreal 777, 16:49 24-10-2007
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » vbs logon скрипт для подключения сетевых дисков


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru