NorthstarIT
asked on
SBS2003 - Mapping Network Drives via VBS
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.Netw ork")
objNetwork.AddWindowsPrint erConnecti on strUNCPrinter
WScript.Echo "Check the Printers folder for : " & strUNCPrinter
WScript.Quit
Thanks is advance
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.Netw
objNetwork.AddWindowsPrint
WScript.Echo "Check the Printers folder for : " & strUNCPrinter
WScript.Quit
Thanks is advance
ASKER
I too would use a batch file however this needs to work with the printer mapping too which is in VBS
How about adding this to your vbs:
Set objNetwork = CreateObject("WScript.Netw ork")
objNetwork.MapNetworkDrive "Z:" , "\\server\share"
?
Set objNetwork = CreateObject("WScript.Netw
objNetwork.MapNetworkDrive
?
ASKER
Can I multiply the above code x 4, one for each drive?
Just add this command
objNetwork.mapnetworkdrive "z:", "\\server\share"
Net use command is used for bath file.
objNetwork.mapnetworkdrive
Net use command is used for bath file.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
What would be the command to delete a network drive before using the objNetwork.mapnetworkdrive "z:", "\\server\share"
?
?
objNetwork.RemoveNetworkDr ive "Z:" "\\server\share"
ASKER
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.Netw ork")
objNetwork.AddWindowsPrint erConnecti on strUNCPrinter
objNetwork.RemoveNetworkDr ive "k:" "\\saturn\applications"
objNetwork.mapnetworkdrive "k:", "\\saturn\applications"
objNetwork.RemoveNetworkDr ive "s:" "\\saturn\swap"
objNetwork.mapnetworkdrive "s:", "\\saturn\swap"
objNetwork.RemoveNetworkDr ive "t:" "\\saturn\tc\client folders"
objNetwork.mapnetworkdrive "t:", "\\saturn\tc\client folders"
objNetwork.RemoveNetworkDr ive "z:" "\\saturn\data"
objNetwork.mapnetworkdrive "z:", "\\saturn\data"
WScript.Quit
Any thoughts anyone?
Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SATURN\KM-MC4695MF"
Set objNetwork = CreateObject("WScript.Netw
objNetwork.AddWindowsPrint
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
WScript.Quit
Any thoughts anyone?
you might need a comma in between the drive letter and location. Sorry, my bad.
ASKER
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.Netw ork")
objNetwork.AddWindowsPrint erConnecti on strUNCPrinter
objNetwork.RemoveNetworkDr ive "k:", "\\saturn\applications"
objNetwork.mapnetworkdrive "k:", "\\saturn\applications"
objNetwork.RemoveNetworkDr ive "s:", "\\saturn\swap"
objNetwork.mapnetworkdrive "s:", "\\saturn\swap"
objNetwork.RemoveNetworkDr ive "t:", "\\saturn\tc\client folders"
objNetwork.mapnetworkdrive "t:", "\\saturn\tc\client folders"
objNetwork.RemoveNetworkDr ive "z:", "\\saturn\data"
objNetwork.mapnetworkdrive "z:", "\\saturn\data"
WScript.Quit
Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SATURN\KM-MC4695MF"
Set objNetwork = CreateObject("WScript.Netw
objNetwork.AddWindowsPrint
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
WScript.Quit
ASKER
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.Netw ork")
objNetwork.AddWindowsPrint erConnecti on strUNCPrinter
objNetwork.RemoveNetworkDr ive "k:", "\\saturn\applications"
objNetwork.mapnetworkdrive "k:", "\\saturn\applications"
objNetwork.RemoveNetworkDr ive "s:", "\\saturn\swap"
objNetwork.mapnetworkdrive "s:", "\\saturn\swap"
objNetwork.RemoveNetworkDr ive "t:", "\\saturn\tc\client folders"
objNetwork.mapnetworkdrive "t:", "\\saturn\tc\client folders"
objNetwork.RemoveNetworkDr ive "z:", "\\saturn\data"
objNetwork.mapnetworkdrive "z:", "\\saturn\data"
WScript.Quit
Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SATURN\KM-MC4695MF"
Set objNetwork = CreateObject("WScript.Netw
objNetwork.AddWindowsPrint
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
objNetwork.RemoveNetworkDr
objNetwork.mapnetworkdrive
WScript.Quit
You get error message because if there is no "K:", it couldn't remove. it. Why you need to remove the drive?
ASKER
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
I will try it withouth the remove command
ASKER
Took out the remove and now I get the error local device name is already in use
ASKER
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
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thank you both. I hope you accept why I have split the points
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