Scripts VBS para usar en active directory

los siguientes Scripts VBS los pueden pegar en un archivo txt lo guardan y despues lo renombran como archivo.vbs


VBS para mapear unidades de red automaticamente


Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath
strDriveLetter = "U:"
strRemotePath = "\\servidor\carpeta1"
Set objNetwork = CreateObject("WScript.Network"
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

strDriveLetter = "V:"
strRemotePath = "\\servidor\carpeta2"
Set objNetwork = CreateObject("WScript.Network"
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

WScript.Quit


VBS para mapear una impresora de red, la linea "WScript.Echo" avisa que se instalo bien y nos da la ruta y el nombre
si le agregamos "rem" al inicio no avisa (ideal para uso en active directory).

Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\computadora1\impresora1"
Set objNetwork = CreateObject("WScript.Network"
objNetwork.AddWindowsPrinterConnection strUNCPrinter
WScript.Echo " Fijese si la Impresora esta instalada: " & strUNCPrinter
WScript.Quit


este es especial, y sencillo para ponerlo en el inicio de sesion de un usuario
en el caso que no entienda los mails o haya que notificarlo a penas inicie sesion.

msgbox "NO ACEPTAR ARCHIVOS CON EL ADJUNTO MERRY CHRISTMAS"