Cómo migrar las impresoras en los PC's clientes

En este procedimiento se explica cómo actualizar las impresoras clientes cuando se migran de servidor. Si por ejemplo migramos todas las impresoras de un servidor a otro, habría que ir PC a PC cambiandoles el PATH de la impresora origen, por ejemplo de servidorORIGENimpresora1 a servidorDESTINOimpresora1. Pues se crearía un script y lo pondría en el inicio de los PC’s o en la SYSVOL, o de la forma que interese, pero lo deberían de ejecutar los PC’s clientes de la forma que sea.

Option Explicit
Dim objNetwork, strUNCPrinter
On error resume next ‘Borra impresoras
strUNCPrinter = “192.168.0.10impresora1”
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.RemovePrinterConnection strUNCPrinterstrUNCPrinter = “192.168.0.10impresora2”
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.RemovePrinterConnection strUNCPrinter‘ Crea impresoras
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.AddWindowsPrinterConnection “192.168.0.11impresora1”
objNetwork.AddWindowsPrinterConnection “192.168.0.11impresora2”

‘Impresora x defecto
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.SetDefaultPrinter “192.168.0.11impresora2”

Wscript.Quit

En este script se borran las impresoras antiguas que tienen los PC’s del servidor 192.168.0.10 y las crea tirando del nuevo servidor 192.168.0.11, y si quieres se les pone una por defecto. Esto lo copias en un fichero que tenga la extensión .VBS y que lo ejecuten los clientes finales de la forma que se te ocurra (politicas, SYSVOL…). Puedes bajartelo de AQUI.