Solved

Home drive is not mapping in Login Script

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

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

Hello again, all.  For those of you that have been following along, you'll know that this is my third article on this topic (though it is not Part III).  This article is sort of remedial, and probably the topic with which I should have started the s…
Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

757 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now