Script .vbs para mapeamento automático de unidades de rede por grupo no AD

Esse script mapeia, de forma automática, unidades de rede nas estações de trabalho de acordo com o grupo do usuário. Funciona em minha rede com o Windows Server 2008 e estações com Windows 7.

Dependências:
Um script .bat configurado para chamar esse arquivo, sendo executado no logon do usuário.

Código

Edite dentro do 'Select Case' de acordo com os grupos e compartilhamento de sua rede.

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 "grupo1" 
		If Not FSODrive.DriveExists("Y:") Then
			objNetwork.MapNetworkDrive "Y:", "\\IP_DO_SERVIDOR\COMPARTILHAMENTO"	
		End If

        Case "grupo2" 
		If Not FSODrive.DriveExists("Y:") Then
			objNetwork.MapNetworkDrive "Y:", "\\IP_DO_SERVIDOR\COMPARTILHAMENTO"	
		End If

    End Select

Next

'============================================='

wscript.quit