[решено] Несколько вопросов по профилям в AD

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Windows NT/2000/2003 (http://forum.oszone.net/forumdisplay.php?f=5)

- - [решено] Несколько вопросов по профилям в AD (http://forum.oszone.net/showthread.php?t=120236)

Несколько вопросов по профилям в AD

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

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

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

А еще в редакторе групповых политик есть пунктик "Перенаправление папок" ;)

Проблему решил следующим образом. Взял скрипт на 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

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

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