Option Explicit
Dim objNetwork, WSHShell
Dim Path1, Letter1
Dim Path2, Letter2
Dim Path3, Letter3
Dim Path4, Letter4
Dim Path5, Letter5
Dim Path6, Letter6
Dim objFSO, strTarget, strSource

Set objFSO = CreateObject("Scripting.FileSystemObject")
' Source file.
strSource = "\\SERVER-DOM3\Contacts\Contacts.pst"
' Target location.
strTarget = "c:\Mailbox\"
' Copy file.
objFSO.CopyFile strSource, strTarget, True

Letter1 = "R:" 
Path1 = "\\server-dom3\Audit"
Letter2 = "x:"
Path2 = "\\server-dom3\FrontOffice\Operator"
Letter3 = "G:"
Path3 = "\\server-dom3\Copier\FrontOffice\Operator"
Letter4 = "Y:" 
Path4 = "\\server-dom3\FrontOffice\reception"
Letter5 = "L:"
Path5 = "\\server-dom3\LQA"


Set objNetwork = CreateObject("WScript.Network") 
objNetwork.MapNetworkDrive Letter1, Path1
objNetwork.MapNetworkDrive Letter2, Path2
objNetwork.MapNetworkDrive Letter3, Path3
objNetwork.MapNetworkDrive Letter4, Path4
objNetwork.MapNetworkDrive Letter5, Path5
rem objNetwork.MapNetworkDrive Letter6, Path6