Comment migrer des imprimantes sur des PC clients

Cette procédure explique comment mettre à jour les imprimantes clientes lorsqu’elles sont migrées d’un serveur à un autre. Si, par exemple, nous migrons toutes les imprimantes d’un serveur à un autre, vous devriez aller de PC à PC en changeant le PATH de l’imprimante source, par exemple de serverSOURCEprinter1 vers serverDESTINATIONprinter1. Eh bien, un script serait créé et placé au démarrage des PC ou dans le SYSVOL, ou de toute autre manière qui intéresse, mais il doit être exécuté par les PC clients de quelque manière que ce soit.

Option explicite
Dim objNetwork, strUNCPrinter
En cas d’erreur, la reprise suivante
« Supprimer des imprimantes
strUNCPrinter = “192.168.0.10imprimante1”
Set objNetwork = CreateObject(“WScript.Réseau”)
objNetwork.RemovePrinterConnection strUNCPrinter
strUNCPrinter = “192.168.0.10imprimante2”
Set objNetwork = CreateObject(“WScript.Réseau”)
objNetwork.RemovePrinterConnection strUNCPrinter
‘ Créer des imprimantes
Set objNetwork = CreateObject(“WScript.Réseau”)
objNetwork.AddWindowsPrinterConnection “192.168.0.11imprimante1”
objNetwork.AddWindowsPrinterConnection “192.168.0.11imprimante2”

'Imprimante x par défaut
Set objNetwork = CreateObject(“WScript.Réseau”)
objNetwork.SetDefaultPrinter “192.168.0.11imprimante2”

Wscript.Quit

Dans ce script, les anciennes imprimantes qui ont les PC serveurs sont supprimées 192.168.0.10 et les crée en tirant le nouveau serveur 192.168.0.11, Et si vous le souhaitez, vous pouvez en mettre un par défaut. Vous le copiez dans un fichier contenant le fichier . VBS et laissez les clients finaux l’exécuter de la manière que vous pouvez imaginer (Manifeste, SYSVOL…). Vous pouvez le télécharger à partir de ICI.


Articles recommandés

Auteur

nheobug@bujarra.com
Autor del blog Bujarra.com Cualquier necesidad que tengas, N’hésitez pas à me contacter, J’essaierai de vous aider chaque fois que je le pourrai, Partager, c’est vivre ;) . Profiter des documents!!!