locked
Mapear unidade de rede RRS feed

  • Pergunta

  •  

    Pessoal,

     

    Estou tendo problemas com o mapeamento da pasta de alguns usuários, quando eu crio um usuário no AD coloco em seu profile uma home folder para mapear na unidade K com o seguinte caminho \\servidor\users$\%username%. Até este ponto sem problemas.

     

    O que acontece é que em algumas máquinas ao invés de ficar o mapeamento com o nome do usuário ele mapea da seguinte forma \\servidor\users$, por questões de segurança coloquei como compartilhamento oculto, e apenas ele tem permissão de acesso somente à sua pasta.

     

    Dessa forma o usuário "clica" na unidade correspondente a sua home exibe a mensagem de acesso negado.

     

    Como faço para corrigir este problema, já fiz até um script para testar e excluir o mapeamento errado e fazer de forma correta, quem quiser posso até postar o script aqui.

     

    Alguém tem uma idéia do que pode ser feito para resolver?

     

    Atenciosamente,

    Marcio Sousa

    sexta-feira, 3 de outubro de 2008 19:49

Respostas

  • Meu amigo Nivaldo,

     

    Segui o seu segundo conselho, coloquei um script para rodar, que nada mais nada menos, testa o mapeamento, e se estiver incorreto, é aplicada a correção.

     

    Segue abaixo o script vbs que estou utilizando, caso alguém que esteja passando pela mesma dificuldade, utilize.

     

    Deixei rodando para fazer uns testes por aqui, a princípio está funcionando bem, tomara que fique tudo certo...

     

    '=======================================================================

    On Error Resume Next

    strComputer = "."
    Dim objNetwork, objShell
    Dim strDriveLetter, strRemotePath, strUserName
    Dim bForce, bUpdateProfile

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_MappedLogicalDisk")

    For Each objItem in colItems
        'Wscript.Echo "Name: " & objItem.Name
     if (objItem.Name = "K:") and (objItem.ProviderName = "\\servidor\users$") then
      
      strDriveLetter = "K:"
      bForce = "True"
      bUpdateProfile = "True"
      err.number = vbempty
      Set objNetwork = CreateObject("WScript.Network")
      On Error Resume Next
      objNetwork.RemoveNetworkDrive strDriveLetter, _
      bforce, bUpdateProfile
      
     end if 
        'Wscript.Echo "Provider Name: " & objItem.ProviderName
    Next
     

    strDriveLetter = "K:"
    strRemotePath = "\\servidor\users$"

    Set objNetwork = WScript.CreateObject("WScript.Network")

    strUserName = objNetwork.UserName
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath & "\" & strUserName

    '===============================================================================

     

    sds

    Marcio Sousa

    segunda-feira, 6 de outubro de 2008 20:27

Todas as Respostas

  • boa tarde,

     

    Nas configurações de compartilhamento deixe assim:

     

    Change -> Everyone

     

    Nas configurações NTFS deixe assim:

     

    Administrators -> Full Control

    Creator Onwner -> Epecial Permissions (Deixa do geito que o windows configurou)

    System -> Full Control

     

    e blza. No home folder faça

     

    \\srvfs\home_folder\%username%

     

    O Windows cria a pasta a pasta do usuário.

     

    considerações...

     

    Se você tentar acessar a pasta Home_folder vai dar acesso negado.

    Se tentar acessar pasta de outro usuario vai dar acesso negado.

    Terá acesso somente a propria pasta.

     

     

    Abs.

     

    sexta-feira, 3 de outubro de 2008 20:26
  • MArcio,

     

    alguma novidade?

    Deu certo o procedimento acima citado?

     

    No aguardo

     

    abraços

    domingo, 5 de outubro de 2008 16:45
  • Pessoal,

     

    Fiz todo o check list que nosso colega passou aqui e está tudo conforme as suas orientações, o que acontece é que em algumas estações o windows simplesmente não mapea corretamente a sua home folder, causando um certo "constrangimento" ao usuário, que tem de ligar diariamente para a equipe de suporte para fazer o mapeamento de forma manual.

     

    Eu já cogitei a possibilidade de ser problema de sistema operacional do cliente, mas a equipe de suporte teima em dizer que antigamente não era assim...

     

    Gostaria de saber da experiência de vocês, se já enfrentaram esse tipo de problema, e se possui uma solução que, de preferência  , não seja formatação e reinstalação de windows.

     

    sds

     

    segunda-feira, 6 de outubro de 2008 11:17
  • Marcio,

     

    Para não precisar formatar uma estação para testar o mapeamento, veja algumas destas alternativas:

    • O usuário tem o mapeamento de maneira correta em qualquer outra estação? Se sim, recrie o perfil deste usuário na estação problemática e teste no novo perfil. (para teste, somente renomei-e a pasta do usuário dentro de Documents and Settings no XP ou Users no Vista. Se não funcionar volte o perfil do usuário na pasta renomeada)
    • Você já tentou "forçar" o mapeamento do diretório, atráves de um simples .bat no Inicializar do perfil do usuário? Assim sempre que ele se logar mapeará de maneira manual, mas não incomodará o suporte.

     

    Nos informe sobre como ficou.

     

    Nivaldo

     

    segunda-feira, 6 de outubro de 2008 11:32
  • Meu amigo Nivaldo,

     

    Segui o seu segundo conselho, coloquei um script para rodar, que nada mais nada menos, testa o mapeamento, e se estiver incorreto, é aplicada a correção.

     

    Segue abaixo o script vbs que estou utilizando, caso alguém que esteja passando pela mesma dificuldade, utilize.

     

    Deixei rodando para fazer uns testes por aqui, a princípio está funcionando bem, tomara que fique tudo certo...

     

    '=======================================================================

    On Error Resume Next

    strComputer = "."
    Dim objNetwork, objShell
    Dim strDriveLetter, strRemotePath, strUserName
    Dim bForce, bUpdateProfile

    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_MappedLogicalDisk")

    For Each objItem in colItems
        'Wscript.Echo "Name: " & objItem.Name
     if (objItem.Name = "K:") and (objItem.ProviderName = "\\servidor\users$") then
      
      strDriveLetter = "K:"
      bForce = "True"
      bUpdateProfile = "True"
      err.number = vbempty
      Set objNetwork = CreateObject("WScript.Network")
      On Error Resume Next
      objNetwork.RemoveNetworkDrive strDriveLetter, _
      bforce, bUpdateProfile
      
     end if 
        'Wscript.Echo "Provider Name: " & objItem.ProviderName
    Next
     

    strDriveLetter = "K:"
    strRemotePath = "\\servidor\users$"

    Set objNetwork = WScript.CreateObject("WScript.Network")

    strUserName = objNetwork.UserName
    objNetwork.MapNetworkDrive strDriveLetter, strRemotePath & "\" & strUserName

    '===============================================================================

     

    sds

    Marcio Sousa

    segunda-feira, 6 de outubro de 2008 20:27
  • Marcio,

     

    Uma boa solução.

    Pensei em um simples "net use k: \\servidor\user$\%username%", mas se está funcionando é o que importa. hehehe

     

    Se ajudou, classifique.

     

    Obrigado.

     

    Nivaldo

     

    segunda-feira, 6 de outubro de 2008 21:21
  •  

    Nivaldo,

     

    Eu também pensei nessa idéia, que é bem simples por sinal, o que acontece é se no micro já estiver mapeada a unidade, mesmo que seja de forma incorreta, vai dar o seguinte erro "Ocorreu o erro de sistema 85. O nome do dispositivo local já está em uso."

     

    Por isso optei em usar um script.

     

    sds

    Marcio Sousa

    terça-feira, 7 de outubro de 2008 11:00
  • Sim, correto.

    Para evitar isto, você pode fazer antes um "net use k: /d /y" e depois mapear a unidade.

    Mas o que importa é a solução.

     

    Obrigado.

     

    Nivaldo

     

    terça-feira, 7 de outubro de 2008 12:04