VBS Script help - make it prompt ONCE for multiple drives

Hi

I've butchered various scripts online and nearly got the end result I am looking for, which is to map multiple drives with a single prompt for username and password.

My script currently prompts once for each drive - I'm sure it cant be hard to get it to only prompt once for all drives.

Also how to get it to show dots instead of plaintext for password!!

Dim oNetwork
Dim sDrive, sNetworkLocation, sUser, sPassword

sDrive = "P:"
sNetworkLocation = "\\server\share"
susername = InputBox("Type your username", vbOKOnly)
spassword = InputBox("Type your password", vbOKOnly)

sDrive1 = "X:"
sNetworkLocation = "\\server\share"
susername = InputBox("Type your username", vbOKOnly)
spassword = InputBox("Type your password", vbOKOnly)

Set oNetwork = CreateObject("wscript.network")

oNetwork.MapNetworkDrive sDrive,sDrive1,sNetworkLocation,False,susername,spassword

Set oNetwork = Nothing
bikerhongAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

KimputerCommented:
Please note P and X map to the same location!
Due to the simplicity of VBScript, you don't have an advanced password input that masks your input.

Dim oNetwork

Set oNetwork = CreateObject("wscript.network")

sDrive = "P:"
sNetworkLocation = "\\server\share"
susername = InputBox("Type your username", vbOKOnly)
spassword = InputBox("Type your password", vbOKOnly)

oNetwork.MapNetworkDrive sDrive,sDrive,sNetworkLocation,False,susername,spassword

sDrive = "X:"
sNetworkLocation = "\\server\share"

oNetwork.MapNetworkDrive sDrive,sDrive,sNetworkLocation,False,susername,spassword

Set oNetwork = Nothing

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.