Un script para añadir impresoras
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\nombre servidor\nombre recurso compartido"
PrinterDriver = "nombre del controlador"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter "\\nombre servidor\nombre recurso compartido"
Uno para Mapear unidades
Dim oNet
Set oNet = CreateObject("WScript.Network")
ONet.MapNetworkDrive "X:", "\\\"
Set oNet = CreateObject("WScript.Network")