Solved

Home drive is not mapping in Login Script

Posted on 2009-06-29
3
500 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

0
Comment
Question by:RFEMHelpdesk
3 Comments
 
LVL 8

Expert Comment

by:jwarnken
ID: 24737371
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
 
LVL 3

Expert Comment

by:astroviper
ID: 24737672
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
 

Accepted Solution

by:
RFEMHelpdesk earned 0 total points
ID: 25068172
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

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Well hello again!  Glad to see you've made it this far without giving up.  In this, the fourth installment of my popular series, I'm going to cover functions and subroutines, what they are, and why they are useful.  Just in case you stumbled onto th…
This script will sweep a range of IP addresses (class c only, 255.255.255.0) and report to a log the version of office installed. What it does: 1.)      Creates log file in the directory the script is run from (if it doesn't already exist) 2.)      Sweep…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

765 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question