Abra Active Directory Users and Computers , encontre um usuário, clique com o botão direito e selecione Properties . Selecione a guia Profile . Em Home Folder , selecione uma letra de driver e o caminho UNC.
Neste momento, cada funcionário tem seu próprio compartilhamento no servidor de arquivos que usa sua primeira inicial de nome e sobrenome (ex. jsmith). É claro que John Simth tem que estar logado para acessar o jsmith.
O problema: No momento, tenho duas opções para estabelecer o compartilhamento de jsmith toda vez que um funcionário fizer login no domínio, criando um perfil de domínio pela primeira vez. I ether 1.) mapeie manualmente a unidade para o compartilhamento. Ou 2.) use o VBScript abaixo e abra-o manualmente ou coloque-o manualmente na pasta de inicialização.
Objetivo: Gostaria de usar um script de login do GPO ou a função de unidade de mapa do GPO para garantir que o funcionário tenha seu compartilhamento pessoal (mapeado para W :). No momento, a única solução que consigo descobrir é adicionar o VBScript abaixo como um script de logon (usando GPO), MAS ele não será executado como deveria. Não há nada de errado com o script se eu colocá-lo manualmente no computador do usuário e clicar nele. Mas como eu me certificaria de que o compartilhamento pessoal dos usuários está sendo mapeado toda vez que fizer login no domínio em QUALQUER computador? NOTA: Eu não preciso usar o script de login abaixo, mas é a única opção atualmente conhecer.
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
Abra Active Directory Users and Computers , encontre um usuário, clique com o botão direito e selecione Properties . Selecione a guia Profile . Em Home Folder , selecione uma letra de driver e o caminho UNC.