Script para borrar o instalar una impresora de red

Hoy os paso un par de scripts, uno para instalar una impresora de red y otro para borrar una impresora de red, es una forma sencilla de borrar o instalar una impresora con un doble clic.

Para crear el primer script (podéis llamarlo instala_impresora.vbs) pegad este código en un bloc de notas y guardad el fichero con extensión .vbs. Deberéis sustituir \\server\impresora por la ruta de la impresora de red que queráis instalar.

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objShell = CreateObject("Wscript.Shell")
WshNetwork.AddWindowsPrinterConnection "\\server\impresora"

Para crear el segundo script (podéis llamarlo borra_impresora.vbs) pegad este código en un bloc de notas y guardad el fichero con extensión .vbs. Deberéis sustituir \\server\impresora por la ruta de la impresora de red que queráis borrar.

Option Explicit
Dim objNetwork, strUNCPrinter, bForce, bUpdateProfile
strUNCPrinter = "\\server\impresora"
bForce = "True"
bUpdateProfile = "False"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection strUNCPrinter, _
bForce, bUpdateProfile

Nunca vayáis a dormir sin aprender algo nuevo...