rendered paste body'##########################################################################
' 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