Migration du serveur d'impression «Le royaume du processeur verbal – Bien choisir son serveur d impression

Migration du serveur d'impression Nous avons effectué une migration d'un ancien serveur d'impression vers un nouveau. J'ai travaillé avec l'administrateur du serveur d'impression pour écrire un script qui faciliterait la migration des postes de travail vers le nouveau serveur. Il avait déjà dupliqué les partages d'imprimante de l'ancien serveur vers le nouveau. Nous avions juste besoin d'un moyen de pointer les postes de travail vers le nouveau serveur. Voici ce que nous voulions que le script fasse:

lire toutes les imprimantes réseau dans un tableau lire l'imprimante par défaut dans une variable supprimer toutes les imprimantes réseau commençant par \ OldPrintServer rajoutez toutes les imprimantes du réseau d'imprimantes réseau mais utilisez \ NewPrintServer comme nom de serveur Si l'imprimante par défaut d'origine était une imprimante réseau… définissez-la sur ce même nom sur le nouveau serveur.

Voici ce que j'ai trouvé. Il peut y avoir des problèmes avec l'habillage de ligne ci-dessous. Il est également disponible en téléchargement.

«************************************************* **********«************************************************* **********‘Script de migration du serveur d’impression««Auteur: Jarvis Davis«Compagnie: Campus Crusade for Christ«Date de création: 29 mai 2008«‘Objectif: migrer les postes de travail d’un serveur d’impression à un autre"Tout en conservant les mêmes noms d'imprimante et imprimante par défaut.««Hypothèse: cela suppose que vous avez déjà migré l'imprimante«Des objets d'un serveur d'impression à un autre et que l'imprimante«Les noms de partages sont restés les mêmes.««************************************************* **********«Flux général:‘* Lire toutes les imprimantes réseau dans un tableau

‘* Lire l'imprimante par défaut dans une variable‘* Supprimer toutes les imprimantes réseau commençant par“ \ OldPrintServer ”‘* Rajoutez toutes les imprimantes du réseau d’imprimantes réseau mais utilisez \ NewPrintServer comme nom de serveur‘* Si l’imprimante par défaut d’origine était une imprimante réseau… définissez-la de nouveau sur le même nom sur le nouveau serveur.«************************************************* ********** Définissez WshNetwork = CreateObject («WScript.Network»)strComputer = "."Définissez objWMIService = GetObject ("winmgmts: \" & strComputer & " root cimv2") ‘Lisez l’imprimante par défaut dans une matrice. Accessible en utilisant For Each objPrinter dans colDefaultDéfinissez colDefault = objWMIService.ExecQuery («Select * From Win32_Printer Where Default = TRUE») ‘Lisez toutes les imprimantes de l’ancien serveur dans un tableau. Accessible via For Each objPrinter dans colPrintersDéfinissez colPrinters = objWMIService.ExecQuery («Sélectionnez * à partir de Win32_Printer où ServerName =« \\ OldPrintServer »») «Supprimez toutes les imprimantes réseau qui commencent par OldPrintServerPour chaque objPrinter dans colPrinters objPrinter.Delete_Prochain «Ajoutez toutes les imprimantes réseau présentes sur le poste de travail à l'aide du nouveau nom de serveurPour chaque objPrinter In colPrinters WshNetwork.AddWindowsPrinterConnection «\ NewPrintServer » & objPrinter.SharenameProchain ‘Déterminez si l’imprimante par défaut d’origine était une imprimante réseau. Si c'est le cas, définissez-le en utilisant le nouveau nom du serveur d'impressionPour chaque objPrinter dans colDefault Si objPrinter.ServerName = "\ OldPrintServer" Alors strOldPrinterName = objPrinter.ServerName strNewPrinterName = Replace (strOldPrinterName, «OldPrintServer», «NewPrintServer») objPrinter.SetDefaultPrinter (strNewPrinterName) Fin siProchain

6 juin 2008 – Publié par Jarvis | technologie | imprimantes, vbscript

Click to rate this post! [Total: 0 Average: 0]