We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
Solved
How to Setup a VBS Logon Script by Group Membership
Posted on 2010-09-06
Hi all,
Im really new to the whole VBS scripting thing, but what im trying to do is make a script to map drives to groups.
So
Group Fdrive = \\server\Fdrive.
Group Tdrive = \\server\accounts
That kinda thing,
And then printers,
Group AccountsPrinter = \\server\AccountingPrinter
Group SkillsPrinter = \\server\SkillsPrinterName
Or am I creating to many groups here… what’s the best way to do this
Would it be better to create a group like, Accounts T Drive and Printing
Thanks guys
Im really new to the whole VBS scripting thing, but what im trying to do is make a script to map drives to groups.
So
Group Fdrive = \\server\Fdrive.
Group Tdrive = \\server\accounts
That kinda thing,
And then printers,
Group AccountsPrinter = \\server\AccountingPrinter
Group SkillsPrinter = \\server\SkillsPrinterName
Or am I creating to many groups here… what’s the best way to do this
Would it be better to create a group like, Accounts T Drive and Printing
Thanks guys
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
6-
6
12 Comments
Are you on a domain? You can use vbscript to map based on domain groups if so which is really handy from and Admin perspective.
I can give you a copy of the VBScript we use if so.
Basically it maps drives based on username (home directories) or groups (department shares etc)
I can give you a copy of the VBScript we use if so.
Basically it maps drives based on username (home directories) or groups (department shares etc)
Have attached the script in code for you to peruse anyways.
There's comments which hopefully explain whats going on.
I've removed majority of our mapings just or simplicity, but you can add as many mappings as you want to the Select statement or even create separate Select statements.
There's comments which hopefully explain whats going on.
I've removed majority of our mapings just or simplicity, but you can add as many mappings as you want to the Select statement or even create separate Select statements.
n Error Resume Next
Set WshNetwork = CreateObject("WScript.Network")
DomainString = WshNetwork.UserDomain
UserString = WshNetwork.UserName
Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString)
'Unmaps some drives which it may map so as to prevent errors
WshNetwork.RemoveNetworkDrive "F:",true,true
WshNetwork.RemoveNetworkDrive "G:",true,true
WshNetwork.RemoveNetworkDrive "L:",true,true
'Simple mapping of drives other than department shared drive
WshNetwork.MapNetworkDrive "F:", "\\servername\Applications"
WshNetwork.MapNetworkDrive "G:", "\\servername\Company Share"
wshNetwork.MapNetworkDrive "M:", "\\servername\Home Directories\" + UserString
'Shared drive mapping based on users AD Group, if user is a member of more than one AD Group and drives are same letter the last drive mapped will be given.
For Each GroupObject In UserObj.Groups
strMSG = GroupObject.Name
Select Case GroupObject.Name
'Case "RHO_finance"
' WshNetwork.MapNetworkDrive "U:", "\\wfs01\Home Directories\CATS"
Case "RHO_accounts"
WshNetwork.MapNetworkDrive "L:", "\\servername\Departments\Accounts"
Case "RHO_wholesale"
WshNetwork.MapNetworkDrive "L:", "\\servername\Departments\Wholesale"
'Shared drive mappings for exception & Misc groups. ie. Those who need access to another departments shared drive
Case "RHO_accountsexceptions"
WshNetwork.MapNetworkDrive "Q:", "\\servername\Departments\Accounts"
Case "RHO_marketingexceptions"
WshNetwork.MapNetworkDrive "Q:", "\\servername\Departments\Marketing"
End Select
Next
'Removes the full UNC path from mapped drives under windows explorer and replaces with a shorter name
sDrive = "M:\"
Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(sDrive).Self.Name = "Home Directory"
'sDrive = "U:\"
'Set oShell = CreateObject("Shell.Application")
'oShell.NameSpace(sDrive).Self.Name = "CATS"
sDrive = "L:\"
Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(sDrive).Self.Name = "Department Share"
sDrive = "F:\"
Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(sDrive).Self.Name = "Applications"
sDrive = "G:\"
Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(sDrive).Self.Name = "Company Share"
WScript.Quit
Hey thanks so much for the quick response... Yeah its a domain... let me have a look, ill come back to you.
Ok, testing now.
I’m just wondering about the RHO_finance… what’s with the underscore? Is that how your groups are named? Or do you need that if you have a space in the group name.
I’m just wondering about the RHO_finance… what’s with the underscore? Is that how your groups are named? Or do you need that if you have a space in the group name.
That's just how we've named our groups. I believe you should be fine if your groups have a space in the name as the code is surrounded by quotes anyways.
Hope it does what you needed :)
Hope it does what you needed :)
Yeah i figured it out... it's working well.
One thing i have noted is that it wont seem to delete the drive, im just double clicking the file... it maps... but if i remove myself from a group and and run again... the drive is still there.
One thing i have noted is that it wont seem to delete the drive, im just double clicking the file... it maps... but if i remove myself from a group and and run again... the drive is still there.
LOL, yeah it helps if you actually do remove yourself from the group in order to delete the share :)
You need a separate line for each drive mapping you want removed.
ie. to remove F: Drive you use the following.
WshNetwork.RemoveNetworkDr
The problem isn't as simple as you've mapped the drive to a letter other than the ones listed to remove is it?
Although if you use the script at group policy then you'll never come across that anyway as the drives are only mapped at logon.
ie. to remove F: Drive you use the following.
WshNetwork.RemoveNetworkDr
The problem isn't as simple as you've mapped the drive to a letter other than the ones listed to remove is it?
Although if you use the script at group policy then you'll never come across that anyway as the drives are only mapped at logon.
No sorry we don't.
Google found me this though which looks good, not sure if you'd already seen it but doesn't look like it would be difficult to integrate to the script i posted.
http://www.computerperformance.co.uk/Logon/LogonScript_Printer_Method.htm
ie. Just add these two lines to the top of the script
Dim objNetwork
Set objNetwork = CreateObject("WScript.Netw
Then customise this line for each of the Select cases in the script i posted
objNetwork.AddWindowsPrint
Maybe someone else can give better help with the printers.
Google found me this though which looks good, not sure if you'd already seen it but doesn't look like it would be difficult to integrate to the script i posted.
http://www.computerperformance.co.uk/Logon/LogonScript_Printer_Method.htm
ie. Just add these two lines to the top of the script
Dim objNetwork
Set objNetwork = CreateObject("WScript.Netw
Then customise this line for each of the Select cases in the script i posted
objNetwork.AddWindowsPrint
Maybe someone else can give better help with the printers.
Featured Post
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
In this article we want to have a look at the directory attributes which are used by Microsoft to store the so called Security Identifiers (SID). These SIDs plays an important role in delegating and granting permissions and in authentication of trus…
When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
In this video, viewers are given an introduction to using the Windows 10 Snipping Tool, how to quickly locate it when it's needed and also how make it always available with a single click of a mouse button, by pinning it to the Desktop Task Bar.
Int…
Michael from AdRem Software explains how to view the most utilized and worst performing nodes in your network, by accessing the Top Charts view in NetCrunch network monitor (https://www.adremsoft.com/). Top Charts is a view in which you can set seve…
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month6 days, 23 hours left to enroll
623 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.