quinta-feira, 31 de maio de 2012

VBScript - Mapeando automaticamente pasta/diretório para um grupo de usuários

Mapeando automaticamente pasta/diretório para um grupo de usuários

O Script abaixo mapeia uma pasta compartilhada para um grupo de usuários do AD, utilizado quando desejamos mapear uma pasta compartilhada para um determinado departamento.


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