[Script] Mapeamento de unidades por grupo usando VBScript
Enviado: 04 Jul 2013 04:55
Esse script mapeia, de forma automática, unidades de rede nas estações de trabalho de acordo com o grupo do usuário.
Edite dentro do ‘Select Case’ de acordo com os grupos e compartilhamento de sua rede.
Bom proveito 
Edite dentro do ‘Select Case’ de acordo com os grupos e compartilhamento de sua rede.
Código: Selecionar todos
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 "Grupo Financeiro"
If Not FSODrive.DriveExists("Y:") Then
objNetwork.MapNetworkDrive "Y:", "\\SERVIDOR\FINANCEIRO"
End If
Case "Grupo Vendas"
If Not FSODrive.DriveExists("Y:") Then
objNetwork.MapNetworkDrive "Y:", "\\SERVIDOR\VENDASINTERNAS"
End If
End Select
Next
wscript.quit