[Script] Mapeamento de unidades por grupo usando VBScript

[marceloleaes]

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.

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

Bom proveito