I have created this vbs file that maps users to drives depending on their group membership. Currently I can only get users of the Domain Admins group to map. I think the code is correct since it does work for one group but who know what else might be causing the problem. Please take a look at the code below:
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 "Domain Admins"
objNetwork.MapNetworkDrive "f:", "\\server3\fire dept"
objNetwork.MapNetworkDrive "g:", "\\server3\accounting"
objNetwork.MapNetworkDrive "h:", "\\server3\drawings"
objNetwork.MapNetworkDrive "j:", "\\server3\manager"
objNetwork.MapNetworkDrive "k:", "\\server3\maps"
objNetwork.MapNetworkDrive "l:", "\\server3\parks-recrea"
objNetwork.MapNetworkDrive "m:", "\\server3\clerk"
objNetwork.MapNetworkDrive "p:", "\\server3\Delta_geographic_Data"
objNetwork.MapNetworkDrive "r:", "\\server3\Engineering"
objNetwork.MapNetworkDrive "t:", "\\server3\BSA_Apps"
objNetwork.MapNetworkDrive "u:", "\\server3\Planning"
objNetwork.MapNetworkDrive "v:", "\\server3\Assessing"
objNetwork.MapNetworkDrive "w:", "\\server3\Building"
Case "Domain Users"
objNetwork.MapNetworkDrive "s:", "\\server3\SHARED"
objNetwork.MapNetworkDrive "x:", "\\server3\Accounting"
objNetwork.MapNetworkDrive "n:", "\\server3\LIAA"
Case "Accounting"
objNetwork.MapNetworkDrive "g:", "\\server3\accounting"
Case "Assessing"
objNetwork.MapNetworkDrive "v:", "\\server3\Assessing"
Case "Building"
objNetwork.MapNetworkDrive "w:", "\\server3\Building"
Case "Clerk"
objNetwork.MapNetworkDrive "m:", "\\server3\clerk"
Case "DTFD Admins"
objNetwork.MapNetworkDrive "f:", "\\server3\fire dept"
Case "DTFD Officers"
objNetwork.MapNetworkDrive "f:", "\\server3\fire dept"
Case "Engineering"
objNetwork.MapNetworkDrive "r:", "\\server3\Engineering"
Case "GIS Administrators"
objNetwork.MapNetworkDrive "p:", "\\server3\Delta_geographic_Data"
Case "GIS Users"
objNetwork.MapNetworkDrive "p:", "\\server3\Delta_geographic_Data"
Case "Manager"
objNetwork.MapNetworkDrive "j:", "\\server3\manager"
Case "Parks"
objNetwork.MapNetworkDrive "l:", "\\server3\parks-recrea"
Case "Planning Dept."
objNetwork.MapNetworkDrive "u:", "\\server3\Planning"
End Select
Next
wscript.quit
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 "Domain Admins"
objNetwork.MapNetworkDrive "f:", "\\server3\fire dept"
objNetwork.MapNetworkDrive "g:", "\\server3\accounting"
objNetwork.MapNetworkDrive "h:", "\\server3\drawings"
objNetwork.MapNetworkDrive "j:", "\\server3\manager"
objNetwork.MapNetworkDrive "k:", "\\server3\maps"
objNetwork.MapNetworkDrive "l:", "\\server3\parks-recrea"
objNetwork.MapNetworkDrive "m:", "\\server3\clerk"
objNetwork.MapNetworkDrive "p:", "\\server3\Delta_geographic_Data"
objNetwork.MapNetworkDrive "r:", "\\server3\Engineering"
objNetwork.MapNetworkDrive "t:", "\\server3\BSA_Apps"
objNetwork.MapNetworkDrive "u:", "\\server3\Planning"
objNetwork.MapNetworkDrive "v:", "\\server3\Assessing"
objNetwork.MapNetworkDrive "w:", "\\server3\Building"
Case "Domain Users"
objNetwork.MapNetworkDrive "s:", "\\server3\SHARED"
objNetwork.MapNetworkDrive "x:", "\\server3\Accounting"
objNetwork.MapNetworkDrive "n:", "\\server3\LIAA"
Case "Accounting"
objNetwork.MapNetworkDrive "g:", "\\server3\accounting"
Case "Assessing"
objNetwork.MapNetworkDrive "v:", "\\server3\Assessing"
Case "Building"
objNetwork.MapNetworkDrive "w:", "\\server3\Building"
Case "Clerk"
objNetwork.MapNetworkDrive "m:", "\\server3\clerk"
Case "DTFD Admins"
objNetwork.MapNetworkDrive "f:", "\\server3\fire dept"
Case "DTFD Officers"
objNetwork.MapNetworkDrive "f:", "\\server3\fire dept"
Case "Engineering"
objNetwork.MapNetworkDrive "r:", "\\server3\Engineering"
Case "GIS Administrators"
objNetwork.MapNetworkDrive "p:", "\\server3\Delta_geographic_Data"
Case "GIS Users"
objNetwork.MapNetworkDrive "p:", "\\server3\Delta_geographic_Data"
Case "Manager"
objNetwork.MapNetworkDrive "j:", "\\server3\manager"
Case "Parks"
objNetwork.MapNetworkDrive "l:", "\\server3\parks-recrea"
Case "Planning Dept."
objNetwork.MapNetworkDrive "u:", "\\server3\Planning"
End Select
Next
wscript.quit