map multiple network drives using VB script


It’s possible to create VB script that maps more than one drive at the time.

1. copy this script and paste it to a text file:
Option Explicit
Dim objNetwork, strShare1, strShare2
Dim strDrive1, strDrive2
strDrive1 = "P:"
strDrive2 = "R:"
strRemotePath1 = "
strRemotePath2 = "
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDrive1, strShare1
objNetwork.MapNetworkDrive strDrive2, strSahre2
Dim objNetwork – Creating a Network Object to populate the new drives
Dim strShare1, strShare2 – Prepare a new string for two network drive letters
Dim strDrive1, strDrive2 – Prepare a new string for two network Paths
strDrive1 = "P:"  – populate P: into string
strDrive2 = "R:" – populate P: into string
strRemotePath1 = populate the first drive path
strRemotePath2 = populate the second drive path
objNetwork.MapNetworkDrive strDrive1, strShare1 – maps P: to connect to
objNetwork.MapNetworkDrive strDrive2, strSahre2 – maps R: to connect to

2. Rename the text file to .VBS extension.
3. Run the scripts and check "My computer" if drives P: and R: created.
4. Put this File into GPO Object to enroll it for your organization.