Para Mapear pastas

Para Mapear pastas:
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")
strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN

Select Case strGroupName
Case "Doc"
objNetwork.MapNetworkDrive "H:", "\\serverfile\comercial"
objNetwork.MapNetworkDrive "I:", "\\serverfile\adm"
Case "Suporte"
objNetwork.MapNetworkDrive "J:", "\\serverfile\suporte"
End Select
Next