PDA

Показать полную графическую версию : [решено] Несколько вопросов по профилям в AD


skeletor
16-10-2008, 16:21
Есть юзер в домене (windows 2003). Ему нужно вместо папки "Мои документы" монтировать сетевой диск. Выбираю "Свойства" - "Профиль" и там выбираю "Домашняя папка" и ставлю нужный диск и путь к папке. Диск удачно монтируется. Мне ещё нужно, что бы выполнялся скрипт на VBS при каждом логине юзера. Поэтому 2 вопроса
1) Как правильно написать, что бы выполнялся скрипт на VBS? Пробовал просто путь к скрипту, пробовал так cscript \script.vbs, но не работает.
2) Что выполняется позже : монтирование сетевого диска или выполнение скрипта? Просто скрипт потом перемонтирует этот диск с нужными параметрами.

Заранее спасибо.

dimich22
17-10-2008, 11:09
В профиле пользователя на вкладке Profile в строке Logon script просто указываем имя скрипта, например logon.vbs Сам скрипт помещаем в папку %systemroot%\sysvol\sysvol\имя домена\scripts на контроллере домена.
По-моему, скрипт выполняется позже.

Oleg Krylov
17-10-2008, 12:08
А еще в редакторе групповых политик есть пунктик "Перенаправление папок" ;)

skeletor
17-10-2008, 15:21
Проблему решил следующим образом. Взял скрипт на VBS (на одном из форумов подсказали) и немного модифицировав под себя, получилось следующее.

' NameDrive.vbs
' VBScript to map a network drive.
' Authors Guy Thomas and Barry Maybury
' Version 1.3 - January 23rd 2005
' ----------------------------------------'
'
Option Explicit
Dim objNetwork, strDrive, objShell, objUNC, objArgs
Dim strRemotePath, strDriveLetter, strNewName, strUsername, strPassword

Set objArgs = WScript.Arguments
strRemotePath=objArgs(0)
strUsername=objArgs(1)
strPassword=objArgs(2)

strDriveLetter = "Y:"
strNewName = "Мои документы"

'Section to map the network drive
On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, true, strUsername, strPassword

' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

WScript.Quit

' End of script.


который прописал запускается с 3 параметрами: путь к шаре, имя юзера и пароль и разместил скрипт в папке netlogon. В итоге, хоть и скрипт доступен по сети, но пароль там не светиться, и не светиться место расположения шары в сети.
Далее в профиле юзера путь к сценарию входа прописываю так

script.vbs \\10.10.10.10\user username userpass

Теперь всё работает как надо, и доступ будет только у одного юзера.

Тему можно закрывать.




© OSzone.net 2001-2012