Improve company productivity with a Business Account.Sign Up

x
?
Solved

SBS2003 - Mapping Network Drives via VBS

Posted on 2010-08-27
18
Medium Priority
?
761 Views
Last Modified: 2012-06-27
I have a script that I pulled from the net which simply maps a printer for a user. I wish however to add four mapped drives to this script in the simplest way possible. I am not interested in security groups or anything like that, just straight forward mapping of 4 network drive locations

The script I am currently using for the printer that I wish to add to is

Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SATURN\KM-MC4695MF"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strUNCPrinter
WScript.Echo "Check the Printers folder for : " & strUNCPrinter

WScript.Quit

Thanks is advance
0
Comment
Question by:NorthstarIT
  • 10
  • 5
  • 3
18 Comments
 
LVL 4

Expert Comment

by:acstechee
ID: 33543265
Hi

Normally I would just use a login script to map the network drives using a net use command?
 Use a batch file with something like 'net use z: \\server\share'

I'm sure it could be done using vbs

Thanks

Gareth
0
 

Author Comment

by:NorthstarIT
ID: 33543331
I too would use a batch file however this needs to work with the printer mapping too which is in VBS
0
 
LVL 4

Expert Comment

by:acstechee
ID: 33543365
How about adding this to your vbs:

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "Z:" , "\\server\share"

?

0
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

 

Author Comment

by:NorthstarIT
ID: 33543414
Can I multiply the above code x 4, one for each drive?
0
 
LVL 5

Expert Comment

by:piji
ID: 33543418
Just add this command

objNetwork.mapnetworkdrive "z:", "\\server\share"

Net use command is used for bath file.
0
 
LVL 5

Assisted Solution

by:piji
piji earned 800 total points
ID: 33543444
Absolutely you can like these:

objNetwork.MapNetworkDrive "Z:" , "\\server\share"
objNetwork.MapNetworkDrive "U:" , "\\server\company"
objNetwork.MapNetworkDrive "W:" , "\\server\clientapps"
0
 

Author Comment

by:NorthstarIT
ID: 33543452
What would be the command to delete a network drive before using the objNetwork.mapnetworkdrive "z:", "\\server\share"
?
0
 
LVL 4

Expert Comment

by:acstechee
ID: 33543492
objNetwork.RemoveNetworkDrive "Z:" "\\server\share"
0
 

Author Comment

by:NorthstarIT
ID: 33543657
I am using the following code and it is erroring at line 6

Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SATURN\KM-MC4695MF"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strUNCPrinter
objNetwork.RemoveNetworkDrive "k:" "\\saturn\applications"
objNetwork.mapnetworkdrive "k:", "\\saturn\applications"
objNetwork.RemoveNetworkDrive "s:" "\\saturn\swap"
objNetwork.mapnetworkdrive "s:", "\\saturn\swap"
objNetwork.RemoveNetworkDrive "t:" "\\saturn\tc\client folders"
objNetwork.mapnetworkdrive "t:", "\\saturn\tc\client folders"
objNetwork.RemoveNetworkDrive "z:" "\\saturn\data"
objNetwork.mapnetworkdrive "z:", "\\saturn\data"
WScript.Quit

Any thoughts anyone?
0
 
LVL 4

Expert Comment

by:acstechee
ID: 33543689
you might need a comma in between the drive letter and location. Sorry, my bad.
0
 

Author Comment

by:NorthstarIT
ID: 33543716
No problem, now using  the below and it is coming up with Line 6 char1 type mismatch

Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SATURN\KM-MC4695MF"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strUNCPrinter
objNetwork.RemoveNetworkDrive "k:", "\\saturn\applications"
objNetwork.mapnetworkdrive "k:", "\\saturn\applications"
objNetwork.RemoveNetworkDrive "s:", "\\saturn\swap"
objNetwork.mapnetworkdrive "s:", "\\saturn\swap"
objNetwork.RemoveNetworkDrive "t:", "\\saturn\tc\client folders"
objNetwork.mapnetworkdrive "t:", "\\saturn\tc\client folders"
objNetwork.RemoveNetworkDrive "z:", "\\saturn\data"
objNetwork.mapnetworkdrive "z:", "\\saturn\data"
WScript.Quit
0
 

Author Comment

by:NorthstarIT
ID: 33543785
No problem, now using  the below and it is coming up with Line 6 char1 type mismatch

Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SATURN\KM-MC4695MF"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strUNCPrinter
objNetwork.RemoveNetworkDrive "k:", "\\saturn\applications"
objNetwork.mapnetworkdrive "k:", "\\saturn\applications"
objNetwork.RemoveNetworkDrive "s:", "\\saturn\swap"
objNetwork.mapnetworkdrive "s:", "\\saturn\swap"
objNetwork.RemoveNetworkDrive "t:", "\\saturn\tc\client folders"
objNetwork.mapnetworkdrive "t:", "\\saturn\tc\client folders"
objNetwork.RemoveNetworkDrive "z:", "\\saturn\data"
objNetwork.mapnetworkdrive "z:", "\\saturn\data"
WScript.Quit
0
 
LVL 5

Expert Comment

by:piji
ID: 33543797
You get error message because if there is no "K:", it couldn't remove. it. Why you need to remove the drive?
0
 

Author Comment

by:NorthstarIT
ID: 33543886
I just found it more reliable, certainly when using the batch file net use method to ensure that it gets mapped properly.

I will try it withouth the remove command
0
 

Author Comment

by:NorthstarIT
ID: 33543909
Took out the remove and now I get the error local device name is already in use

0
 

Author Comment

by:NorthstarIT
ID: 33543917
This is fine if that user has never logged onto a specific machine however if they already have used that machine I don't want them to get a logon error
0
 
LVL 4

Accepted Solution

by:
acstechee earned 1200 total points
ID: 33543992
Hi

Sorry, remove network drive doesn't need a path. ie.
Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SATURN\KM-MC4695MF"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection strUNCPrinter
objNetwork.RemoveNetworkDrive "k:"
objNetwork.mapnetworkdrive "k:", "\\saturn\applications"
objNetwork.RemoveNetworkDrive "s:"
objNetwork.mapnetworkdrive "s:", "\\saturn\swap"
objNetwork.RemoveNetworkDrive "t:"
objNetwork.mapnetworkdrive "t:", "\\saturn\tc\client folders"
objNetwork.RemoveNetworkDrive "z:"
objNetwork.mapnetworkdrive "z:", "\\saturn\data"
WScript.Quit

Sorry, again, my bad!
0
 

Author Closing Comment

by:NorthstarIT
ID: 33544077
Thank you both. I hope you accept why I have split the points
0

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

I’m often asked about newer and larger USB drives connected to SBS2008 and 2011 failing Windows Server Backup vs the older USB drives not failing. As disk space continues to grow and drive technology change SBS2008 and some SBS2011 end up with the f…
Microsoft Jet database engine errors can crop up out of nowhere to disrupt the working of the Exchange server. Decoding why a particular error occurs goes a long way in determining the right solution for it.
To export Lotus Notes to Outlook PST or Exchange and Domino Server files to Exchange Server or PST files with ease, go for Kernel for Lotus Notes to Outlook conversion tool. Through the video, you can watch the conversion process. A common user with…
Watch the software video of Kernel Import PST to Office 365 tools which can easily import PST and OST files to Office 365 for bulk mailboxes. The process of migration is simple and user can map source and destination mailboxes and easily import data…

595 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