We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

Home drive is not mapping in Login Script

RFEMHelpdesk
RFEMHelpdesk asked
on
Medium Priority
571 Views
Last Modified: 2012-05-07
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

Comment
Watch Question

Commented:
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.
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
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.