Yes GPP's would be ideal and if it would have been an option we would have used them.
Here's the script that was implemented:
on error resume next
'----------start timer------------------
dtmStartTime = Timer
'----------constants and variables --------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objNetwork = WScript.CreateObject("WScript.Network")
Set WSHShell = CreateObject("WScript.Shell")
Set colDrives = objFSO.Drives
strUserName = objNetwork.UserName
strCSV = "%logonserver%\netlogon\altdrivemap.csv"
Const ForReading = 1
'----------Read the CSV and look for username------------
Set objCSVFile = objFSO.OpenTextFile(strCSV,1)
Do while NOT objCSVFile.AtEndOfStream
'Split the values by their delimiter
arr = split(objCSVFile.ReadLine,",")
'Match the username
IF lcase(strusername) = trim(lcase(arr(0))) then
'---------Disconnect any drive letters that will be mapped
If (objFSO.DriveExists(arr(1)) = True) Then
objNetwork.RemoveNetworkDrive arr(1), True, True
End If
'Notification of pending drive mapping assignments
'Wscript.Echo "Existing Drive Mapping" & arr(1) & arr(2)
'----------Map the drives
objNetwork.MapNetworkDrive arr(1), arr(2), False
else
END IF
Loop
objCSVFile.Close
'---------Timer Functions ---------------------------
'Wscript.Echo "Script completed in " & GetElapsedTime
Function GetElapsedTime
Const SECONDS_IN_DAY = 86400
Const SECONDS_IN_HOUR = 3600
Const SECONDS_IN_MINUTE = 60
Const SECONDS_IN_WEEK = 604800
dtmEndTime = Timer
seconds = Round(dtmEndTime - dtmStartTime, 2)
If seconds < SECONDS_IN_MINUTE Then
GetElapsedTime = seconds & " seconds "
Exit Function
End If
If seconds < SECONDS_IN_HOUR Then
minutes = seconds / SECONDS_IN_MINUTE
seconds = seconds MOD SECONDS_IN_MINUTE
GetElapsedTime = Int(minutes) & " minutes " & seconds & " seconds "
Exit Function
End If
If seconds < SECONDS_IN_DAY Then
hours = seconds / SECONDS_IN_HOUR
minutes = (seconds MOD SECONDS_IN_HOUR) / SECONDS_IN_MINUTE
seconds = (seconds MOD SECONDS_IN_HOUR) MOD SECONDS_IN_MINUTE
GetElapsedTime = Int(hours) & " hours " & Int(minutes) & " minutes " & seconds & " seconds "
Exit Function
End If
If seconds < SECONDS_IN_WEEK Then
days = seconds / SECONDS_IN_DAY
hours = (seconds MOD SECONDS_IN_DAY) / SECONDS_IN_HOUR
minutes = ((seconds MOD SECONDS_IN_DAY) MOD SECONDS_IN_HOUR) / SECONDS_IN_MINUTE
seconds = ((seconds MOD SECONDS_IN_DAY) MOD SECONDS_IN_HOUR) MOD SECONDS_IN_MINUTE
GetElapsedTime = Int(days) & " days " & Int(hours) & " hours " & Int(minutes) & " minutes " & seconds & " seconds "
Exit Function
End If
End Function
wscript.quit
And this is what the altdrivemap.csv file looks like
edward.user,Z:,\\servername.domain.name\sharename
sally.uzer,X:,\\servername1.domain.name\sharename3
etc...
Some credit goes to Rob Dunn and Dave Rossi on the spiceworks forums for helping with the script.
http://community.spiceworks.com/topic/313953-vbs-read-csv-and-map-drives-based-on-username
