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 colDefault
Dé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 colPrinters
Définissez colPrinters = objWMIService.ExecQuery («Sélectionnez * à partir de Win32_Printer où ServerName =« \\ OldPrintServer »»)

«Supprimez toutes les imprimantes réseau qui commencent par OldPrintServer
Pour 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 serveur
Pour chaque objPrinter In colPrinters
WshNetwork.AddWindowsPrinterConnection «\ NewPrintServer » & objPrinter.Sharename
Prochain

‘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'impression
Pour chaque objPrinter dans colDefault
Si objPrinter.ServerName = "\ OldPrintServer" Alors
strOldPrinterName = objPrinter.ServerName
strNewPrinterName = Replace (strOldPrinterName, «OldPrintServer», «NewPrintServer»)
objPrinter.SetDefaultPrinter (strNewPrinterName)
Fin si
Prochain

6 juin 2008 –

Publié par Jarvis |
technologie | imprimantes, vbscript