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

 

Até o proximo post!

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: