Option Explicit
On Error Resume Next
Dim objNetwork, dLetter1, dLetter2, dLetter3, dLetter4, dLetter5,_
nPath1, nPath2, nPath3, nPath4, nPath5
Set objNetwork = CreateObject("WScript.Network")
'Drive letter variables
dLetter1 = "P:"
dLetter2 = "Q:"
dLetter3 = "R:"
dLetter4 = "N:"
dLetter5 = "V:"
'Network path variables
nPath1 = "somepath"
nPath2 = "somepath"
nPath3 = "somepath"
nPath4 = "somepath"
nPath5 = "somepath"
'Remove any mappings that may be present
objNetwork.RemoveNetworkDrive dLetter1
objNetwork.RemoveNetworkDrive dLetter2
objNetwork.RemoveNetworkDrive dLetter3
objNetwork.RemoveNetworkDrive dLetter4
objNetwork.RemoveNetworkDrive dLetter5
'Map network drives
objNetwork.MapNetworkDrive dLetter1, nPath1
objNetwork.MapNetworkDrive dLetter2, nPath2
objNetwork.MapNetworkDrive dLetter3, nPath3
objNetwork.MapNetworkDrive dLetter4, nPath4
objNetwork.MapNetworkDrive dLetter5, nPath5
WScript.Quit