Map Network Drive Script

On Error Resume Next

'Delete all Netwrok Drives 
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
WshNetwork.RemoveNetworkDrive oDrives.Item(i),true,true
Next

dim objNetwork, strDrive, objShell, objUNC
dim strRemotePath, strDriveLetter, strNewName
set wshNetwork = createObject("Wscript.Network")
strUsername = wshNetwork.UserName
call mapdrive("X:","\\Server\share1","Share1")
call mapdrive("Y:","\\Server\share1","Share2")

function mapdrive(strDriveLetter,strRemotePath,strNewName)

'Map the network drive
set objNetwork = createObject("WScript.Network") 
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath 
   
'Rename the Mapped Drive
set objShell = createObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.name = strNewName
end function