[gptalk] Re: Vbs logon script for mapped drives - one group having problems

  • From: <Booker.Washington@xxxxxxxxxxxxxx>
  • To: <gptalk@xxxxxxxxxxxxx>
  • Date: Thu, 6 Nov 2008 16:46:25 -0500

Absolutely not, in terms of no other complaints (smile).  That normally just 
means, they have not called the help desk yet.

But, I just remembered that  I don't think I set it to wait for the script to 
run before logging on.  And I usually set that!!!

Ok, let me make that change and continue to monitor.......I think that may be 
the case, it might explain the intermittent nature, i.e, sometimes the script 
runs before the logon process is complete, and maybe sometimes the logon 
process completes without running the script?

Each matching case produces an action

No drive letter assignment for removable drives or use sticks.

Thanks

Booker T. Washington III
Systems Support Specialist

From: gptalk-bounce@xxxxxxxxxxxxx [mailto:gptalk-bounce@xxxxxxxxxxxxx] On 
Behalf Of Omar Droubi
Sent: Thursday, November 06, 2008 4:38 PM
To: gptalk@xxxxxxxxxxxxx
Subject: [gptalk] Re: Vbs logon script for mapped drives - one group having 
problems

just cause you haven't gotten complaints doesn't mean that it is working- does 
it?

Any chance the script is just not running for the particular user logons?

are you forcing the logon process to wait for the script? are notebooks 
involved? is wireless networking involved?

Also- maybe you would be interested is using the GPO preference options for 
mapping drives- I find that it works pretty well- especially if every users 
gets a user or personal drive and then they get departmental or project related 
mapped drives as well.

I also have a big issue regarding users who are in multiple groups causing 
problems as you reuse drive letters based on groups

It has been a short while since I used select/case statements- but does the 1st 
apply then it exits or does each matching case result in an action?

Strange that a reboot would fix it-maybe there is a drive letter assignment for 
a removable drive or usb stick or a card slot in the workstation for memory 
sticks?

Omar Droubi
omar@xxxxxxxxxxxxxxxxxxxxx<mailto:omar@xxxxxxxxxxxxxxxxxxxxx>
650-726-0300
________________________________
From: gptalk-bounce@xxxxxxxxxxxxx [gptalk-bounce@xxxxxxxxxxxxx] On Behalf Of 
David Palombi [dave.palombi@xxxxxxxxx]
Sent: Thursday, November 06, 2008 01:18 PM
To: gptalk@xxxxxxxxxxxxx
Subject: [gptalk] Re: Vbs logon script for mapped drives - one group having 
problems
This is what we have for our login script.  This is just a snippet of the code.

If (IsMember(objUser, "PERFORMANCE") = True) Then
 objNetwork.MapNetworkDrive "v:", 
"\\bluewater\performance$<file:///\\bluewater\performance$>", False
End If

David Palombi
----- Original Message -----
From: Booker.Washington@xxxxxxxxxxxxxx<mailto:Booker.Washington@xxxxxxxxxxxxxx>
To: gptalk@xxxxxxxxxxxxx<mailto:gptalk@xxxxxxxxxxxxx>
Sent: Thursday, November 06, 2008 4:07 PM
Subject: [gptalk] Vbs logon script for mapped drives - one group having problems

I have the following vbs script below.  The script maps drives based on the 
users group membership

For some members of the group MGT Undergraduate Office, they report that 
"sometimes" when they login the drive will not map, but if they restart, then 
the drive shows.  Obviously, that is not ideal, so I am trying to figure out 
where to start troubleshooting to see why this is occurring.

So far in my testing, I have not heard complaints from the one other group that 
is a part of my test roll out of this logon script

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)

'Removes curent mappings
objNetwork.RemoveNetworkDrive "L:", True, True
objNetwork.RemoveNetworkDrive "J:", True, True
objNetwork.RemoveNetworkDrive "Z:", True, True
objNetwork.RemoveNetworkDrive "R:", True, True
objNetwork.RemoveNetworkDrive "N:", True, True
objNetwork.RemoveNetworkDrive "O:", True, True
objNetwork.RemoveNetworkDrive "U:", True, True
objNetwork.RemoveNetworkDrive "S:", True, True
objNetwork.RemoveNetworkDrive "M:", True, True
objNetwork.RemoveNetworkDrive "I:", True, True
objNetwork.RemoveNetworkDrive "K:", True, True
objNetwork.RemoveNetworkDrive "Z:", True, True
objNetwork.RemoveNetworkDrive "X:", True, True
objNetwork.RemoveNetworkDrive "Y:", True, True
objNetwork.RemoveNetworkDrive "Q:", True, True

'Finds users group membership
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN


'Mappings for all users
'objNetwork.MapNetworkDrive "T:", 
"\\nas1.prism.myschool.com\com\profiles\%username%\My Documents"
'wscript.Echo strUser.userName


'Mappings Based on Group Membership
'wscript.Echo objGroup.CN
Select Case strGroupName

Case "MGT IT Services Group"
objNetwork.MapNetworkDrive "Y:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\IT services"

'Case "MGT Accounting"
'objNetwork.MapNetworkDrive "R:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Accounting"

Case "MGT Career Services"
objNetwork.MapNetworkDrive "L:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Career Services"
objNetwork.MapNetworkDrive "j:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Career Svcs_Act"
objNetwork.MapNetworkDrive "z:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Undergraduate Office"

Case "MGT Career Services SAs"
objNetwork.MapNetworkDrive "L:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Career Services"
objNetwork.MapNetworkDrive "j:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Career Svcs_Act"
objNetwork.MapNetworkDrive "z:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Undergraduate Office"


Case "MGT CIBER"
objNetwork.MapNetworkDrive "R:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\CIBER"

Case "MGT CIBER GRAs"
objNetwork.MapNetworkDrive "R:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\CIBER"


Case "MGT Communications"
objNetwork.MapNetworkDrive "R:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Communications"
objNetwork.MapNetworkDrive "N:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\DeanSuite"

Case "MGT Communications Share Guest access"
objNetwork.MapNetworkDrive "R:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Communications"
objNetwork.MapNetworkDrive "N:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\DeanSuite"


Case "MGT Dean Suite non HR"
objNetwork.MapNetworkDrive "L:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Building Operations"
objNetwork.MapNetworkDrive "N:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\DeanSuite"
objNetwork.MapNetworkDrive "O:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Accounting"
objNetwork.MapNetworkDrive "U:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Graduate Assistantship"
objNetwork.MapNetworkDrive "S:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Accounting\FAcS"


'Case "MGT Dean's Suite"
'objNetwork.MapNetworkDrive "T:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups"


Case "MGT Development"
objNetwork.MapNetworkDrive "L:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Development"
objNetwork.MapNetworkDrive "R:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Communications"
objNetwork.MapNetworkDrive "M:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Development\Student Share"
objNetwork.MapNetworkDrive "N:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\DeanSuite"

Case "MGT Development SAs"
objNetwork.MapNetworkDrive "M:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Development\Student Share"

'Case "MGT Event Support"
'objNetwork.MapNetworkDrive "T:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups"


Case "MGT Eview Users"
objNetwork.MapNetworkDrive "T:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\eview"


Case "MGT Executive Masters"
objNetwork.MapNetworkDrive "I:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Executive Education"
objNetwork.MapNetworkDrive "J:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\EMSMOT_Act"
objNetwork.MapNetworkDrive "K:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\EMSMOT"
objNetwork.MapNetworkDrive "O:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Accounting"
objNetwork.MapNetworkDrive "L:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Executive Programs"

Case "MGT Executive Programs"
objNetwork.MapNetworkDrive "I:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Executive Education"
objNetwork.MapNetworkDrive "J:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\EMSMOT_Act"
objNetwork.MapNetworkDrive "K:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\EMSMOT"
objNetwork.MapNetworkDrive "O:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Accounting"
objNetwork.MapNetworkDrive "L:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Executive Programs"

Case "MGT Explab Share participants"
'objNetwork.MapNetworkDrive "L:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Explab"
objNetwork.MapNetworkDrive "Z:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\ExpLab"


'Case "MGT FACS Admin Assistant List F access"
'objNetwork.MapNetworkDrive "T:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups"


'Case "MGT FACS Admin Assistant read access"
'objNetwork.MapNetworkDrive "T:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups"


'Case "MGT FACS Admin Assistant read write access"
'objNetwork.MapNetworkDrive "T:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups"


'Case "MGT Faculty"
'objNetwork.MapNetworkDrive "T:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups"

'Case "MGT Staff FaCs access"
'objNetwork.MapNetworkDrive "T:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups"



Case "MGT Graduate Office"
objNetwork.MapNetworkDrive "M:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Graduate Office"

Case "MGT Grad Assistant Share"
objNetwork.MapNetworkDrive "U:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Graduate Assistantship"

Case "MGT HR staff"
objNetwork.MapNetworkDrive "X:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Building Operations"
objNetwork.MapNetworkDrive "N:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\DeanSuite"
objNetwork.MapNetworkDrive "O:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Accounting"
objNetwork.MapNetworkDrive "Y:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Communications"
objNetwork.MapNetworkDrive "R:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Human Resources"
objNetwork.MapNetworkDrive "Q:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Accounting\Pcard"


Case "ILE Office"
objNetwork.MapNetworkDrive "J:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Institute for LE"

Case "ILE GRAs"
objNetwork.MapNetworkDrive "J:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Institute for LE"

Case "MGT Tiger Share participants"
objNetwork.MapNetworkDrive "T:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Tiger"


Case "MGT Undergraduate Office"
objNetwork.MapNetworkDrive "M:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Undergraduate Office"


Case "MGT Recruiting Share Access"
objNetwork.MapNetworkDrive "Q:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Recruiting"

Case "MGT Faculty"
objNetwork.MapNetworkDrive "S:", 
"\\mgt-fileshare.mgt.myschool.com\com\shares\groups\Accounting\FAcS"



End Select
Next

Booker T. Washington III
Systems Support Specialist

Other related posts: