sábado, 5 de dezembro de 2015

Windows - Mapear Unidade de Rede por Grupos de Usuários.

Mapear unidade rede é uma tarefa simples usando “net use”, mas quando é necessário dividir os mapeamentos por grupos de usuários com o “net use” a tarefa ja fica um pouco complicado, a melhor solução é usar um script em vbs, este codigo permite mapear unidades de rede filtrando por grupos de usuarios.
On Error Resume Next
Set objSysInfo = CreateObject(“ADSystemInfo”)
Set objNetwork = CreateObject(“Wscript.Network”)
strUserPath = “LDAP://” & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
For Each strGroup in objUser.MemberOf
strGroupPath = “LDAP://” & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
Select Case strGroupName
Case “Financeiro”
objNetwork.MapNetworkDrive “X:”, “\\SERVIDOR01\FINANCEIRO”
Case “Recursos Humanos”
objNetwork.MapNetworkDrive “Y:”, “\\SERVIDOR02\RH”
Case “Operacional”
objNetwork.MapNetworkDrive “Z:”, “\\SERVIDOR02\OPERACIONAL”
End Select
Next

fonte: https://pedrofava.wordpress.com/2011/03/03/mapear-unidade-de-rede-por-grupos-de-usuarios/
Reações:

0 comentários: