I have this in my notes, looking at it, its pretty self explanitory, I'd have to go through it thoroughly to understand it 

 

On Error Resume Next

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 "Finance Users"
            objNetwork.MapNetworkDrive "X:", "\\TESTSVR01\finance"
       
        Case "Human Resource Users"
            objNetwork.MapNetworkDrive "X:", "\\TESTSVR01\hr"

        Case "Manufacturing Users"
            objNetwork.MapNetworkDrive "X:", "\\TESTSVR01\manufacturing"

        Case "Shipping and Receiving Users"
            objNetwork.MapNetworkDrive "X:", "\\TESTSVR01\shipping"
    End Select
Next