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

Neste procedimento explica-se como atualizar as impressoras clientes quando se migram de servidor. Se por exemplo migrarmos todas as impressoras de um servidor para outro, teríamos de ir de PC em PC alterando o PATH da impressora de origem, por exemplo de servidorORIGENimpresora1 a servidorDESTINOimpresora1. Pois criar-se-ia um script e colocá-lo-ia na inicialização dos PCs ou na SYSVOL, o de la forma que interessae, mas ele deveria ser executado pelos PCs clientes de qualquer forma.

Option Explicit
Dim objNetwork, strUNCPrinter
On error resume next ‘Apaga impressoras
strUNCPrinter = “192.168.0.10impressora1”
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.RemovePrinterConnection strUNCPrinterstrUNCPrinter = “192.168.0.10impressora2”
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.RemovePrinterConnection strUNCPrinter‘ Cria impressoras
Set objNetwork = CreateObject(“WScript.Network”)
objNetwork.AddWindowsPrinterConnection “192.168.0.11impressora1”
objNetwork.AddWindowsPrinterConnection “192.168.0.11impressora2”

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

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 (políticas, SYSVOL…). Puedes bajartelo de AQUI.