Назад | Перейти на главную страницу

Сопоставление дисков с помощью сценария входа в групповую политику (домен 2008 года с клиентами Windows 7 и 8)

У меня проблемы с подключением дисков к моему домену. Несколько месяцев назад мы использовали настройки групповой политики для сопоставления дисков, но по какой-то причине они перестали работать, поэтому я создал несколько сценариев входа в систему для различных подразделений моей компании для сопоставления дисков. Но и они не работали полностью.

Насколько я могу судить, объекты групповой политики со сценариями входа запускаются при входе в систему, но диски все еще не отображаются. Выполнение вручную сценария .vbs успешно сопоставляет диски, он просто не отображает их, когда пользователь входит в систему.

Запуск gpresult / r показывает, что GPO сценария входа был запущен, а просмотр Applications and Services\Microsoft\Windows\GroupPolicy\Operational журнал событий, я вижу событие 4016, где говорится:

Запуск обработки расширения сценариев.
Список применимых объектов групповой политики: (Изменения обнаружены.)
Общий доступ к дискам GPO

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

On Error Resume Next
If err.number = vbEmpty then
Set objShell = Create("WScript.Shell")
objShell.run ("Explorer")
ElseIf err.number = -2147022646 then
Wscript.Echo "You must create" & strDriveLetter
Else Wscript.echo "Unknown " & err.number
End if

' Map H Drive
Set objectNetwork = CreateObject("Wscript.Network")
objectNetwork.RemoteNetworkDrive "H:"
objectNetwork.MapNetworkDrive "H:", "\\Path\to\FileServer"
Set objectShell = CreateObject("Shell.Application")
objectShell.NameSpace("H:").Self.Name = "Name Applied to Drive Letter"

' Map I Drive
Set objectNetwork = CreateObject("Wscript.Network")
objectNetwork.RemoteNetworkDrive "I:"
objectNetwork.MapNetworkDrive "I:", "\\OtherPath\to\FileServer"
Set objectShell = CreateObject("Shell.Application")
objectShell.NameSpace("I:").Self.Name = "Name Applied to Drive Letter"

и так далее для каждой буквы диска, относящейся к пользователю.

Вы можете изучить объект групповой политики Lookback. Если я помню, его нужно включить в конкретном подразделении, содержащем компьютерные объекты.