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

In diesem Verfahren wird erklärt, wie die Client-Drucker aktualisiert werden, wenn sie von einem Server auf einen anderen migriert werden. Wenn wir zum Beispiel alle Drucker von einem Server auf einen anderen migrieren, müsste man PC für PC gehen und den Pfad des Quell-Druckers ändern, zum Beispiel von ServerQUELLEDrucker1 zu ServerZIELDrucker1. Dann würde man ein Skript erstellen und es beim Start der PCs oder im SYSVOL ablegen, oder auf die gewünschte Weise, aber die Clients sollten es auf die eine oder andere Weise ausführen.

Option Explicit
Dim objNetwork, strUNCPrinter
On error resume next ‘Löscht Drucker
strUNCPrinter = “192.168.0.10Drucker1”
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.11Drucker1”
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 HIER.