Home drive is not mapping in Login Script

I am working on a logon script for a small domain. I have added the code below. Initially I needed to add the ie pop up for our online Time and Labor application. I decided to rework the entire script while I was at it to streamline things. All aspects seem to be functioning with the exception of the J: drive mapping on line 23 below. Any help would be appreciated. I am also in need of a logout script that will again cause an ie window to pop up for the time and labor application before shutting down.
ON ERROR RESUME NEXT
 
Dim WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Path
 
Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
'Automatically get user's domain name
DomainString = Wshnetwork.UserDomain 
'Get Windows Directory
WinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")
 
'Get user name
UserString = WSHNetwork.UserName
'Bind to user object to get user name and check for group memberships later
Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString)
 
'Get the computer name
strComputer = WSHNetwork.ComputerName
 
'Disconnect ALL mapped drives
Set clDrives = WshNetwork.EnumNetworkDrives
For i = 0 to clDrives.Count -1 Step 2
    WSHNetwork.RemoveNetworkDrive clDrives.Item(i), True, True
Next 
 
'PC disconnect, wait 300 milliseconds
wscript.sleep 300
 
'Map drives for all users
 WSHNetwork.MapNetworkDrive "J:", "\\rfmain\user\" & UserString,True
 WSHNetwork.MapNetworkDrive "K:", "\\rfaccount\olms",True
 WSHNetwork.MapNetworkDrive "Q:", "\\rfvit\app-inst",True
 WSHNetwork.MapNetworkDrive "S:", "\\rfmain\share",True
 
'Check group membership and map drives accordingly
For Each GroupObj In UserObj.Groups
'Force upper case comparison of the group names, otherwise this is case sensitive.
    Select Case UCase(GroupObj.Name)
    'Check for group memberships and take needed action
        Case "DOMAIN ADMINS"
	    wshnetwork.MapNetworkDrive "R:", "\\RFMAIN\D$",True
 
        Case "CPI_USERS"
	    wshnetwork.MapNetworkDrive "T:", "\\RFMAIN\SHARE",True
 
        Case "UTIL"
	    wshnetwork.MapNetworkDrive "Y:", "\\RFMAIN\UTIL",True
 
        Case "SUMMATION"
	    wshnetwork.MapNetworkDrive "N:", "\\RFMAIN\SUMMATION",True
 
        Case "NON-EXEMPT"
	    Set oIE = WScript.CreateObject("InternetExplorer.Application") 
	    oIE.Visible = True 
	    oIE.Navigate("https://timeandlabor.paychex.com/secure/login.asp")
 
    End Select
Next
 
'Remove ALL old printers
Set WSHPrinters = WSHNetwork.EnumPrinterConnections
For LOOP_COUNTER = 0 To WSHPrinters.Count - 1 Step 2
 
'Remove specific printers
wshnetwork.RemovePrinterConnection "\\RFMAIN\acctg2",True,True
wshnetwork.RemovePrinterConnection "\\RFMAIN\BarcodePrint",True,True
wshnetwork.RemovePrinterConnection "\\RFMAIN\Canon.acct",True,True
wshnetwork.RemovePrinterConnection "\\RFMAIN\Canon.8th.BW.copyroom",True,True
wshnetwork.RemovePrinterConnection "\\RFMAIN\Canon.8th.copyroom",True,True
wshnetwork.RemovePrinterConnection "\\RFMAIN\Canon.9th.BW",True,True
wshnetwork.RemovePrinterConnection "\\RFMAIN\Canon.9th.copyroom",True,True
wshnetwork.RemovePrinterConnection "\\RFMAIN\Canon.8th.BW",True,True
wshnetwork.RemovePrinterConnection "\\RFMAIN\Color-8th",True,True
wshnetwork.RemovePrinterConnection "\\RFMAIN\Color-9th",True,True
                                
'Install Printers
wshnetwork.AddWindowsPrinterConnection "\\RFVPRINT\Canon.8th.BW.copyroom"
'wshnetwork.AddWindowsPrinterConnection "\\RFVPRINT\Canon.8th.copyroom"
wshnetwork.AddWindowsPrinterConnection "\\RFVPRINT\Canon.9th.BW"
'wshnetwork.AddWindowsPrinterConnection "\\RFVPRINT\Canon.9th.copyroom"
wshnetwork.AddWindowsPrinterConnection "\\RFVPRINT\Canon.8th.BW"
wshnetwork.AddWindowsPrinterConnection "\\RFVPRINT\Color-9th"
wshnetwork.AddWindowsPrinterConnection "\\RFVPRINT\Color-8th"
wshnetwork.AddWindowsPrinterConnection "\\RFVPRINT\XEROX 8TH COLOR COPYROOM"
wshnetwork.AddWindowsPrinterConnection "\\RFVPRINT\XEROX 9TH COLOR COPYROOM"
 
set UserObj = Nothing
set GroupObj = Nothing
set WSHNetwork = Nothing
set DomainString = Nothing
set WSHSHell = Nothing
Set WSHPrinters = Nothing
 
wscript.quit

Open in new window

RFEMHelpdeskAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

jwarnkenCommented:
There are a lot of issues that can happen 1st step would be to comment out ON ERROR RESUME NEXT and see if there is an error occurring.
0
astroviperCommented:
If there are parts that are not necessarily going to complete without error every time and you need the script to continue so that you can test the rest of the code, you can enclose sections with:

On Error Resume Next
...
On Error Goto 0
0
RFEMHelpdeskAuthor Commented:
Determined that the mapping issue was directly related to the manner in which the AD user account was configured. Once the AD account was corrected the mapping occurred as anticipated.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.