[gptalk] Re: Vbs logon script for mapped drives - one group having problems
- From: Omar Droubi <omar@xxxxxxxxxxxxxxxxxxxxx>
- To: "gptalk@xxxxxxxxxxxxx" <gptalk@xxxxxxxxxxxxx>
- Date: Thu, 6 Nov 2008 13:37:56 -0800
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:
