Прямо сейчас у каждого сотрудника есть свой общий ресурс на файловом сервере, который использует свои первые инициалы, имена и фамилии (например, jsmith). Конечно, Джон Симт должен войти в систему, чтобы получить доступ к ресурсу jsmith.
Проблема: прямо сейчас у меня есть два варианта установки общего ресурса jsmith каждый раз, когда сотрудник входит в домен, создавая профиль домена в первый раз. Я эфир 1.) вручную подключить диск к общему ресурсу. Или 2.) используйте приведенный ниже VBScript и вручную откройте его или вручную поместите в папку автозагрузки.
Цель: мне бы хотелось использовать скрипт входа в GPO или функцию привода карты GPO, чтобы убедиться, что у сотрудника есть личная доля (сопоставленная с W:). Прямо сейчас единственное решение, которое я могу выяснить, это добавить приведенный ниже VBScript в качестве сценария входа (используя GPO), НО он не будет работать так, как должен. Нет ничего плохого в сценарии, если я вручную поставлю его на компьютер пользователя и нажму на него. Но как сделать так, чтобы личный ресурс пользователей отображался при каждом входе в домен на ЛЮБОМ компьютере? ПРИМЕЧАНИЕ: мне не нужно использовать скрипт входа ниже, но это единственный вариант, который я знаю в настоящее время.
VBScript:
' Section removes W drive if exists
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("Wscript.Network")
If (objFSO.DriveExists("W:") = True) Then
objNetwork.RemoveNetworkDrive "W:", True, True
End If
' Section Remaps W drive based on User Name, the OU is also stored but not used.
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strUserName = objUser.samAccountName
strOUPath = objUser.Parent
arrContainers = Split(strOUPath, ",")
arrOU = Split(arrContainers(0), "=")
strOU = arrOU(1)
strDrive = "\\SERVER001\" & strUserName
strFirstInt= Left(strUserName,1)
strLastName= Split(strUserName, " ")(1)
strDrive = "\\192.168.0.1\" & strFirstInt & strLastName
'WScript.Echo (strDrive)
Set objNetwork = CreateObject("Wscript.Network")
objNetwork.MapNetworkDrive "W:", strDrive
