'##########################################################################
' NAME: ********
' Domain Login Script
'
' AUTHOR: *******
' DATE  : **/**/****
'##########################################################################
' Global Variables/ Script Parameters
'##########################################################################
 
Dim item, CurrentUser, GroupsMem, strTempGroup, truncusername
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSysInfo.Username)
Set WshShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set Drives = objNetwork.EnumNetworkDrives
strDept = objuser.Department
strOffice = objuser.physicalDeliveryOfficeName
truncusername =  left(objNetwork.UserName, len(objNetwork.UserName)-2)

'##########################################################################
' Disconnect ALL mapped Drives
'##########################################################################
for Each item In Drives
     if right(item,1) = ":" Then
         objNetwork.RemoveNetworkDrive item, True, True
     end If
Next
WScript.Sleep 2000

'##########################################################################
'Group Drive Mappings
'##########################################################################
Set GroupsMem = objUser.Groups
For Each objUser In GroupsMem
 StrTempGroup = objUser.cn
Select Case strTempGroup

              Case "Human Resources"
              	  objNetwork.MapNetworkDrive "G:", "\\path\to\directory"
		  objNetwork.MapNetworkDrive "H:", "\\path\to\directory"
              Case "Program"
                  objNetwork.MapNetworkDrive "O:", "\\path\to\directory", True
              Case "Staff"
                  objNetwork.MapNetworkDrive "P:", "\\path\to\directory\" & objNetwork.Username, True
	      Case "Forms"
		  objNetwork.MapNetworkDrive "Q:", "\\path\to\directory", True      
              Case "Fiscal"    
		  objNetwork.MapNetworkDrive "R:", "\\path\to\directory", True
              Case "Fiscal_ReadOnly"    
		  objNetwork.MapNetworkDrive "R:", "\\path\to\directory", True
              Case "Admin"
                  objNetwork.MapNetworkDrive "S:", "\\path\to\directory", True
              Case "Staff_Time"
                  objNetwork.MapNetworkDrive "T:", "\\path\to\directory\" & truncusername, True
              Case "Managers"
                  objNetwork.MapNetworkDrive "U:", "\\path\to\directory", True
              Case "BST"
                  objNetwork.MapNetworkDrive "V:", "\\path\to\directory", True	
'             Case "Cen_Gen"
'                 objNetwork.MapNetworkDrive "W:", "\\path\to\directory", True	
'             Case "Cen_Pro"
'                 objNetwork.MapNetworkDrive "X:", "\\path\to\directory", True	
'             Case "Cen_Fis"
'                 objNetwork.MapNetworkDrive "Y:", "\\path\to\directory", True
 	      Case "Web_Dev"
        	  objNetwork.MapNetworkDrive "Z:", "\\path\to\directory", True
End Select
Next
 
Set objUser = Nothing
Set objADSysInfo = Nothing