Encontrei este script para mapear uma única unidade e renomear a unidade:
'
Option Explicit
Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName
'
strDriveLetter = "H:"
strRemotePath = "\FileServer\shar...
20.05.2017 / 08:50