Script para mapear unidades de red o impresoras

Vamos a crear un script para mapear unidades e impresoras de red para usuarios de Active Directory. Este se ejecutará automáticamente al inicio de sesión y lo programaremos en Visual Basic.

El script necesitará residir en la siguiente ruta del controlador de dominio:

%windir%\SYSVOL\%domainname%\Scripts

El nombre del fichero puede ser cualquiera, pero la extensión debe ser .vbs. Su contenido tendrá la siguiente forma:

'Map network drives
Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName
Set objNetwork =WScript.CreateObject("WScript.Network")
strDriveLetter = "U:"
strRemotePath = "\\server\Data"
strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath & "\" & strUserName
strDriveLetter = "V:"
strRemotePath = "\\server\Data\Common"
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

'Map network printers
Dim strUNCPrinter
strUNCPrinter = "\\server\HPLJD1"
objNetwork.AddWindowsPrinterConnection strUNCPrinter
strUNCPrinter = "\\server\HPLJD2"
objNetwork,AddWindowsPrinterConnection strUNCPrinter
strUNCPrinter = "\\server\HPLJD3"
objNetwork,AddWindowsPrinterConnection strUNCPrinter
WScript.Quit

Por descontado necesitaremos tener adecuadamente publicados los recursos de red que se refieren en el script. He visto SysAdmins que usan scripts .bat o .cmd junto al comando net use. Esto denderá de nuestro estilo.