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.
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
ResponderExcluirTá certo!???
ResponderExcluirOn 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
Bom dia
ResponderExcluirComo ficaria caso o teste da estrutura fosse pelo nome do pc