Try this to get started, this lists all the groups that a user is a member of. You could easily take this and add your mapped drive logic in the for loop.
Hope this helps
TQ
Dim grp, Root, DomainPath, Domain, sOU, sUser
Set Root = GetObject("LDAP://RootDSE")
DomainPath =...