Mapeando automaticamente pasta/diretório para um grupo de usuários
Observações: Para automatizar o processo, devemos ter um GRUPO (Group) dentro do AD com o mesmo nome de uma pasta dentro do servidor.
Por exemplo:
Grupo TI no AD
Pasta compartilhada: TI$ no Servidor.
VBScript:
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
Dim PosInicio
Dim PosFim
Dim MyGrupo
On Error Resume Next
arrGroups = objUser.GetEx("memberOf")
If (Err.Number <> 0) Then
On Error GoTo 0
Wscript.Echo "USUÁRIO SEM GRUPO"
Else
On Error GoTo 0
For Each strGroup In arrGroups
Set objGroup = GetObject("LDAP://" & strGroup)
PosInicio=InStr(strGroup,"")
Posfim = InStr(strGroup,",")
MyGrupo = mid(strGroup,PosInicio+3,PosFim-4)
Set objNetwork = WScript.CreateObject("WScript.Network")
Set WshNetwork = CreateObject("WScript.Network")
On Error Resume Next
objNetwork.RemoveNetworkDrive "T:"
objNetwork.MapNetworkDrive "T:", "\\ad\"&MyGrupo&"$"
msgbox ("Pasta "&MyGrupo&" mapeada com sucesso!")
Next
End If
Nenhum comentário:
Postar um comentário