Mapeamento de pasta compartilhada conforme grupo do AD

Boa Tarde nerds ...

A ideia destes post é demonstrar como mapear uma pasta compartilhada através de script de logon, conforme o grupo a que o usuário pertence no AD. Por exemplo:

Considere a seguinte estrutura de pastas compartilhadas:

Z:\\fileserver
S:\\sistemaX

Considere que na pasta Z:\\fileserver, todos os usuários de rede tem acesso, portanto, deve ser mapeada para todos. Porém, a pasta S:\\sistemaX só deve ser mapeada para os usuários que tenham permissão para tal.

Para fazermos isso é muito simples. Inicialmente, criei um grupo no AD com os usuários que terão acesso a pasta "sistemaX". Para padronizar, criaremos o grupo com o nome igual ao da pasta.

Após, criamos um script.vbs com o conteúdo abaixo:

 On Error Resume Next  
 set objNetwork= CreateObject("WScript.Network")  
 strDom = objNetwork.UserDomain  
 strUser = objNetwork.UserName  
 Set objUser = GetObject("WinNT://" & strDom & "/" & strUser & ",user")  
 For Each objGroup In objUser.Groups  
   Select Case objGroup.Name  
     Case "sistemaX"   
           If Not FSODrive.DriveExists("S:") Then  
                objNetwork.MapNetworkDrive "S:", "\\ip_do_servidor\sistemaX"       
           End If  
   End Select  
 Next  
 wscript.quit  

Edite o CASE deste script conforme a sua necessidade.

Após, crie o script de logon com o conteúdo abaixo

 echo off  
 net use Z: \\ip_do_servidor\fileserver  
 START /MIN \\ip_do_servidor\netlogon\script.vbs  

Salve este arquivo no formato .bat, darei o nome de "script.bat". Escolha conforme seu gosto. Primeiro este script mapeia a pasta Z:fileserver para todos os usuários, após, executa o script.vbs, que fará o mapeamento conforme o grupo de usuários.

Agora coloque os 2 scripts que criamos dentro da pasta netlogon do windows "\\ip_do_servidor\netlogon". Logo após, insira o nome do script.bat nas configurações de cada usuário.


Com isso, somente os usuários que estiverem no grupo "sistemaX" terão esta pasta mapeada.

Share on Google Plus

About Carlos Castro

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.
    Blogger Comment
    Facebook Comment

3 comentários:

  1. I am thankful to this blog for assisting me. I added some specified clues which are really important for me to use them in my writing skill. Really helpful stuff made by this blog.salones para eventos en barcelona

    ResponderExcluir
  2. Tá certo!???

    On Error Resume Next
    set objNetwork= CreateObject("WScript.Network")
    strDom = objNetwork.UserDomain
    strUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & strDom & "/" & strUser & ",user")
    For Each objGroup In objUser.Groups
    Select Case objGroup.Name
    Case "A623_Geral"
    If Not FSODrive.DriveExists("G:") Then
    objNetwork.MapNetworkDrive "G:", "\\A623DCFS\A623_Geral$"
    Case "A623_Administracao"
    If Not FSODrive.DriveExists("H:") Then
    objNetwork.MapNetworkDrive "H:", "\\A623DCFS\Administracao$"
    Case "A623_CRS"
    If Not FSODrive.DriveExists("I:") Then
    objNetwork.MapNetworkDrive "I:", "\\A623dcfs\crs$"
    Case "A623_Custo"
    If Not FSODrive.DriveExists("J:") Then
    objNetwork.MapNetworkDrive "J:", "\\A623DCFS\Custo$"
    Case "A623_Gerencia"
    If Not FSODrive.DriveExists("K:") Then
    objNetwork.MapNetworkDrive "K:", "\\A623DCFS\Gerencia$"
    Case "A623_Planejamento"
    If Not FSODrive.DriveExists("L:") Then
    objNetwork.MapNetworkDrive "L:", "\\A623DCFS\Planejamento$"
    Case "A623_Producao"
    If Not FSODrive.DriveExists("M:") Then
    objNetwork.MapNetworkDrive "M:", "\\A623DCFS\Producao$"
    Case "A623_qsma"
    If Not FSODrive.DriveExists("N:") Then
    objNetwork.MapNetworkDrive "N:", "\\A623dcfs\qsma$"
    Case "A623_Suprimentos"
    If Not FSODrive.DriveExists("O:") Then
    objNetwork.MapNetworkDrive "O:", "\\A623DCFS\Suprimentos$"
    End If
    End Select
    Next
    wscript.quit

    ResponderExcluir
  3. Bom dia
    Como ficaria caso o teste da estrutura fosse pelo nome do pc

    ResponderExcluir