{"version":"1.1","schema_version":"1.1.0","plugin_version":"1.1.2","url":"https://tutos-gameserver.fr/2019/09/03/migration-des-imprimantes-reseau-avec-vbscript-bien-choisir-son-serveur-d-impression/","llm_html_url":"https://tutos-gameserver.fr/2019/09/03/migration-des-imprimantes-reseau-avec-vbscript-bien-choisir-son-serveur-d-impression/llm","llm_json_url":"https://tutos-gameserver.fr/2019/09/03/migration-des-imprimantes-reseau-avec-vbscript-bien-choisir-son-serveur-d-impression/llm.json","manifest_url":"https://tutos-gameserver.fr/llm-endpoints-manifest.json","language":"fr-FR","locale":"fr_FR","title":"Migration des imprimantes réseau avec VBScript\n\n – Bien choisir son serveur d impression","site":{"name":"Tutos GameServer","url":"https://tutos-gameserver.fr/"},"author":{"id":1,"name":"Titanfall","url":"https://tutos-gameserver.fr/author/titanfall/"},"published_at":"2019-09-03T12:34:36+00:00","modified_at":"2019-09-03T12:34:36+00:00","word_count":1763,"reading_time_seconds":529,"summary":"Dans le cadre d’une migration de Windows XP vers Windows 7, il m’a été demandé de trouver un moyen d’exporter les imprimantes réseau installées sur les ordinateurs XP afin qu’elles puissent être réinstallées sur les ordinateurs Windows 7. Nous ne voulions pas capturer les imprimantes locales (imprimantes installées via TCP / IP ou connectées via […]","summary_points":["Dans le cadre d’une migration de Windows XP vers Windows 7, il m’a été demandé de trouver un moyen d’exporter les imprimantes réseau installées sur les ordinateurs XP afin qu’elles puissent être réinstallées sur les ordinateurs Windows 7.","Nous ne voulions pas capturer les imprimantes locales (imprimantes installées via TCP / IP ou connectées via USB) ni les imprimantes virtuelles (telles que l'imprimante virtuelle Adobe PDF ou Microsoft XPS Document Writer).","Je pensais que la migration des imprimantes était moins attrayante, car les ordinateurs sources sont sous Windows XP 32 bits, alors que les ordinateurs de destination sont sous Windows 7 64 bits et que les pilotes sont donc différents.","Il existe différentes manières d’exporter des files d’impression, des paramètres d’imprimante et des ports d’imprimante, mais j’ai décidé que tout ce que je voulais, c’était de déterminer le nom de chaque imprimante (par exemple: \\ SERVER Printer) sur le XP."],"topics":["Serveur d'impression"],"entities":[],"entities_metadata":[{"id":10,"name":"Serveur d'impression","slug":"serveur-dimpression","taxonomy":"category","count":3907,"url":"https://tutos-gameserver.fr/category/serveur-dimpression/"}],"tags":["Serveur d'impression"],"content_hash":"5e39fb6fde551083c80725ffa1220f89","plain_text":"Dans le cadre d’une migration de Windows XP vers Windows 7, il m’a été demandé de trouver un moyen d’exporter les imprimantes réseau installées sur les ordinateurs XP afin qu’elles puissent être réinstallées sur les ordinateurs Windows 7. Nous ne voulions pas capturer les imprimantes locales (imprimantes installées via TCP / IP ou connectées via USB) ni les imprimantes virtuelles (telles que l'imprimante virtuelle Adobe PDF ou Microsoft XPS Document Writer). Je pensais que la migration des imprimantes était moins attrayante, car les ordinateurs sources sont sous Windows XP 32 bits, alors que les ordinateurs de destination sont sous Windows 7 64 bits et que les pilotes sont donc différents.\nIl existe différentes manières d’exporter des files d’impression, des paramètres d’imprimante et des ports d’imprimante, mais j’ai décidé que tout ce que je voulais, c’était de déterminer le nom de chaque imprimante (par exemple: \\ SERVER Printer) sur le XP. ordinateur, exportez-le dans un fichier texte sur un partage réseau, puis exécutez PrintUI.exe / ga sur la machine Windows 7 en parcourant les lignes du fichier texte en entrée.\n(Consultez l’assistant Migration d’imprimantes en lançant PrintBrmUI.exe ou la version en ligne de commande. % WINDIR% System32 Spool Tools Printbrm /?, pour des alternatives à printui.exe.)\nDe plus, j’exporte également le nom de l’imprimante par défaut afin qu’il puisse être défini par programme dans le nouvel environnement.\nLe code est un travail en cours, mais j'espère que cela vous aidera à démarrer.\nLes VBScripts\nVoici les scripts que j'ai reconstitués.\nexportPrinters.vbs\nLe script exportPrinters.vbs crée deux fichiers texte dans H: PRINTERS. Ajustez votre chemin en conséquence.\n\r\n\r\n\r\n\r\nConst ForWriting = 2\r\n\r\nSet objNetwork = CreateObject ("Wscript.Network")\r\n\r\nstrName = objNetwork.UserName\r\nstrDomain = objNetwork.UserDomain\r\nstrUser = strDomain & "" & strName\r\n\r\n'strText = strUser & vbCrLf\r\n\r\nstrComputer = "."\r\n\r\nDéfinissez objWMIService = GetObject ("winmgmts: \\" & strComputer & " root cimv2")\r\n\r\n\r\n'Exporter une liste d’imprimantes réseau dans un fichier texte\r\n\r\nDéfinir colPrinters = objWMIService.ExecQuery _\r\n    ("Select * From Win32_Printer Where Local = FALSE")\r\n\r\nPour chaque objPrinter en colPrinters\r\n    strText = strText & objPrinter.Name & vbCrLf\r\nProchain\r\n\r\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")\r\n\r\nstrFolder = "H: IMPRIMANTES"\r\n\r\nSi non objFSO.FolderExists (strFolder), alors\r\n    objFSO.CreateFolder (strFolder)\r\nFin si\r\n\r\nDéfinir objFile = objFSO.CreateTextFile _\r\n    ("H: PRINTERS printers.txt", ForWriting, False)\r\n\r\nobjFile.Write strText\r\n\r\nobjFile.Close\r\n\r\n\r\n'Exporter l'imprimante par défaut séparément\r\n\r\nDéfinir colPrinters = objWMIService.ExecQuery _\r\n    ("Select * From Win32_Printer Où Default = TRUE")\r\n\r\nPour chaque objPrinter en colPrinters\r\n    strText = objPrinter.Name\r\nProchain\r\n\r\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")\r\n\r\nDéfinir objFile = objFSO.CreateTextFile _\r\n    ("H: PRINTERS default.txt", ForWriting, False)\r\n\r\nobjFile.Write strText\r\n\r\nobjFile.Close\r\n\nimportPrinters.vbs\nNotez que, si vos utilisateurs sous Windows 7 ne sont pas administrateurs, vous devrez exécuter le script en tant qu'administrateur (il existe différentes manières) ou vous obtiendrez une invite UAC pour chaque installation d'imprimante et le redémarrage de l'impression. spouleur.\nEncore une fois, surveillez les chemins. Ceci est un script maison pour mon environnement spécifique.\n\r\n\r\n\r\n\r\nOption explicite\r\n\r\n'Ce script doit être exécuté avec les privilèges administor\r\n'S'il n'est pas exécuté avec des privilèges d'administrateur, il lancera une invite UAC pour chaque imprimante lorsqu'il parcourra la liste en boucle.\r\n'Voici un article intéressant sur l'utilisation de VBS en tant qu'utilisateur différent:\r\n'http://blogs.technet.com/b/heyscriptingguy/archive/2006/04/28/how-can-i-use-the-runas-command-torrun-a-script-under-alternate-user -credentials.aspx\r\n\r\n'Par exemple:\r\n'runas / profile / user:[username][password] "cscript.exe " F: Recherche de pilote d'imprimante Automation printers-import.vbs ""\r\n\r\nDim objNetwork, strComputer, strName, strFolder, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, WshShell\r\nCONST ForReading = 1\r\n\r\n'Créer un objet réseau\r\nSet objNetwork = CreateObject ("Wscript.Network")\r\n\r\n'Obtenir le nom de la machine locale à partir de l'objet réseau\r\nstrComputer = objNetwork.ComputerName\r\n\r\n'Obtenir le nom d'utilisateur de l'utilisateur à partir de l'objet Réseau\r\nstrName = objNetwork.UserName\r\n\r\n'Créer un objet de système de fichiers\r\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")\r\n\r\n'Enregistrer le nom du fichier texte en tant que variable\r\n'Notez que le script doit être exécuté en tant qu’administrateur et que l’appel du script avec\r\n'Exécuter en tant que provoque l'exécution du script comme s'il se trouvait dans le même répertoire que "% SystemRoot% System32 WScript.exe"\r\n'D'où la nécessité de transmettre le chemin d'accès complet au fichier printers.txt\r\nstrTextFile = "H: PRINTERS printers.txt"\r\n\r\n'Ouvrez le fichier texte - strData contient maintenant tout le fichier\r\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll\r\n\r\n'Diviser le fichier texte en lignes\r\narrLines = Split (strData, vbCrLf)\r\n\r\n'Initialise le wshShell\r\nDéfinir WshShell = WScript.CreateObject ("WSCript.shell")\r\n\r\n'Traverser les lignes\r\nPour chaque ligne en ligne\r\n\r\n    Si Len (strLine)> 0 alors\r\n'N'exécute le processus que sur des lignes qui ne sont pas vides\r\n\r\n'strRunCmd = "rundll32 printui.dll, PrintUIEntry / ga / c \\" & strComputer & "/ n" & strLine & ""\r\nstrRunCmd = "" "printui.exe" "/ ga / q / c \\" & strComputer & "/ n" & strLine & ""\r\n\r\n'Renvoie la commande à exécuter\r\n'WScript.Echo strRunCmd\r\n\r\n'Ceci lance printui.exe\r\n'strRunCmd = "" "printui.exe" ""\r\n\r\n'Exécutez la commande, affichez la fenêtre et attendez la fin de la commande avant de continuer.\r\nRésultat faible\r\nresult = WshShell.Run (strRunCmd, 1, True)\r\n\r\n'WScript.Echo résultat\r\n\r\n'Écrivez dans le journal d'application que l'imprimante a été installée\r\nSi résultat = 0 alors\r\nWshShell.LogEvent 0, "User:" & strName & "- Evénement: tentative d'installation de l'imprimante" & strLine & "avec [\" & strRunCmd & \"] (succès inconnu) "\r\nFin si\r\n\r\n'WScript.Echo "Imprimante traitée:" & strLine\r\n    Fin si\r\n\r\nProchain\r\n\r\n'Nettoyer\r\nDéfinir objFSO = Nothing\r\n\r\n'Attends 10 secondes\r\nWScript.Sleep 10000\r\n\r\n'Redémarrez le spouleur d'impression\r\nRestartService "Spouleur d'impression", True\r\n\r\nSub RestartService (myService, blnQuiet)\r\n'Ce sous-programme redémarre un service\r\n' Arguments:\r\n'myService utilise le nom d'affichage du service\r\n'blnQuiet si False, l'état du service est affiché\r\n'chaque seconde pendant la procédure de redémarrage\r\n'\r\n'Écrit par Rob van der Woude\r\n'http://www.robvanderwoude.com\r\n\r\n    «Ménage standard\r\n    Dim colServices, colServicesTest, objService\r\n    Dim objServiceTest, objWMIService, strQuery, strTest\r\n\r\n    'Créer un objet WMI\r\n    Définissez objWMIService = GetObject ("winmgmts: \\. Root CIMV2")\r\n\r\n    'Interrogez les services pour "notre" service\r\n    strQuery = "SELECT * FROM Win32_Service WHERE DisplayName = '" & myService & "'"\r\n    Définissez colServices = objWMIService.ExecQuery (strQuery, "WQL", 48)\r\n\r\n    'Boucle à travers la "collection" de services rendus\r\n    Pour chaque objService dans colServices\r\n        'Voir si nous devons dire à l'utilisateur que nous allons arrêter le service\r\n        Si non blnQuiet alors\r\n            WScript.Echo "Arrêt" et monService\r\n        Fin si\r\n\r\n        'Arrêtez le service\r\n        objService.StopService\r\n\r\n        'Attendez que le service soit arrêté\r\n        Do Until strTest = "Stopped"\r\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\r\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\r\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)\r\n\r\n            'Boucle à travers la "collection" de services rendus\r\n            Pour chaque objServiceTest dans colServicesTest\r\n                'Vérifier l'état du service\r\n                strTest = objServiceTest.State\r\n                'Voir si nous devons montrer les progrès\r\n                Si non blnQuiet alors\r\n                    WScript.Echo "State:" & strTest\r\n                Fin si\r\n                'Attendez 1 seconde\r\n                WScript.Sleep 1000\r\n            Prochain\r\n\r\n            'Effacer l'objet temporaire\r\n            Définir colServicesTest = Nothing\r\n        Boucle\r\n\r\n        'Voir si nous devons dire à l'utilisateur que nous allons (re) démarrer le service\r\n        Si non blnQuiet alors\r\n            WScript.Echo "Démarrage" & myService\r\n        Fin si\r\n\r\n        'Démarrer le service\r\n        objService.StartService\r\n\r\n        'Attendez que le service soit à nouveau opérationnel\r\n        Do Until strTest = "Running"\r\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\r\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\r\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)\r\n\r\n            'Boucle à travers la "collection" de services rendus\r\n            Pour chaque objServiceTest dans colServicesTest\r\n                'Vérifier l'état du service\r\n                strTest = objServiceTest.State\r\n                'Voir si nous devons montrer les progrès\r\n                Si non blnQuiet alors\r\n                    WScript.Echo "State:" & strTest\r\n                Fin si\r\n                'Attendez 1 seconde\r\n                WScript.Sleep 1000\r\n            Prochain\r\n\r\n            'Effacer l'objet temporaire\r\n            Définir colServicesTest = Nothing\r\n        Boucle\r\n    Prochain\r\nEnd Sub\r\n\nsetDefaultPrinter.vbs\nEnfin, nous voulons définir l’imprimante par défaut. L'imprimante devra déjà exister (évidemment). Si vous venez de lancer la commande printui.exe / ga pour installer l’imprimante, celle-ci ne sera disponible qu’au redémarrage du spouleur d’impression. Alors attendez une minute ou deux avant d'exécuter le script.\n\r\n\r\n\r\n\r\nOption explicite\r\n\r\nDim objNetwork, strComputer, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, wshShell\r\nCONST ForReading = 1\r\n\r\n'Créer un objet réseau\r\nSet objNetwork = CreateObject ("Wscript.Network")\r\n\r\n'Obtenir le nom de la machine locale à partir de l'objet réseau\r\nstrComputer = objNetwork.ComputerName\r\n\r\n'Enregistrer le nom du fichier texte en tant que variable\r\nstrTextFile = "H: PRINTERS default.txt"\r\n\r\n'Créer un objet de système de fichiers\r\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")\r\n\r\n'Ouvrez le fichier texte - strData contient maintenant tout le fichier\r\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll\r\n\r\n'Diviser le fichier texte en lignes\r\narrLines = Split (strData, vbCrLf)\r\n\r\n'Initialise le wshShell\r\nDéfinir wshShell = WScript.CreateObject ("WSCript.shell")\r\n\r\n'Traverser les lignes\r\nPour chaque ligne en ligne\r\n\r\n    Si Len (strLine)> 0 alors\r\n'N'exécute le processus que sur des lignes qui ne sont pas vides\r\n\r\n'strRunCmd = "rundll32 printui.dll, PrintUIEntry / y / c \\" & strComputer & "/ n" & strLine & ""\r\nstrRunCmd = "" "printui.exe" "/ y / c " & strComputer & "/ n" "" & strLine & "" ""\r\n'wscript.echo strRunCmd\r\nwshShell.Run strRunCmd\r\n\r\n'wscript.echo "Imprimante traitée:" & strLine\r\n    Fin si\r\n\r\nProchain\r\n\r\n'Nettoyer\r\nDéfinir objFSO = Nothing\r\n\nAu fur et à mesure de la migration, je reviendrai et peaufinerai les scripts. S'il vous plaît n'hésitez pas à laisser des commentaires et des suggestions.\nMerci à Rob van der Woude pour sa formidable page de contrôle des imprimantes en ligne de commande, ainsi que pour d’autres.\n\nClick to rate this post!\r\n \r\n [Total: 0 Average: 0]","paragraphs":["Dans le cadre d’une migration de Windows XP vers Windows 7, il m’a été demandé de trouver un moyen d’exporter les imprimantes réseau installées sur les ordinateurs XP afin qu’elles puissent être réinstallées sur les ordinateurs Windows 7. Nous ne voulions pas capturer les imprimantes locales (imprimantes installées via TCP / IP ou connectées via USB) ni les imprimantes virtuelles (telles que l'imprimante virtuelle Adobe PDF ou Microsoft XPS Document Writer). Je pensais que la migration des imprimantes était moins attrayante, car les ordinateurs sources sont sous Windows XP 32 bits, alors que les ordinateurs de destination sont sous Windows 7 64 bits et que les pilotes sont donc différents.\nIl existe différentes manières d’exporter des files d’impression, des paramètres d’imprimante et des ports d’imprimante, mais j’ai décidé que tout ce que je voulais, c’était de déterminer le nom de chaque imprimante (par exemple: \\ SERVER Printer) sur le XP. ordinateur, exportez-le dans un fichier texte sur un partage réseau, puis exécutez PrintUI.exe / ga sur la machine Windows 7 en parcourant les lignes du fichier texte en entrée.\n(Consultez l’assistant Migration d’imprimantes en lançant PrintBrmUI.exe ou la version en ligne de commande. % WINDIR% System32 Spool Tools Printbrm /?, pour des alternatives à printui.exe.)\nDe plus, j’exporte également le nom de l’imprimante par défaut afin qu’il puisse être défini par programme dans le nouvel environnement.\nLe code est un travail en cours, mais j'espère que cela vous aidera à démarrer.\nLes VBScripts\nVoici les scripts que j'ai reconstitués.\nexportPrinters.vbs\nLe script exportPrinters.vbs crée deux fichiers texte dans H: PRINTERS. Ajustez votre chemin en conséquence.","Const ForWriting = 2","Set objNetwork = CreateObject ("Wscript.Network")","strName = objNetwork.UserName\nstrDomain = objNetwork.UserDomain\nstrUser = strDomain & "" & strName","'strText = strUser & vbCrLf","strComputer = "."","Définissez objWMIService = GetObject ("winmgmts: \\" & strComputer & " root cimv2")","'Exporter une liste d’imprimantes réseau dans un fichier texte","Définir colPrinters = objWMIService.ExecQuery _\n    ("Select * From Win32_Printer Where Local = FALSE")","Pour chaque objPrinter en colPrinters\n    strText = strText & objPrinter.Name & vbCrLf\nProchain","Définir objFSO = CreateObject ("Scripting.FileSystemObject")","strFolder = "H: IMPRIMANTES"","Si non objFSO.FolderExists (strFolder), alors\n    objFSO.CreateFolder (strFolder)\nFin si","Définir objFile = objFSO.CreateTextFile _\n    ("H: PRINTERS printers.txt", ForWriting, False)","objFile.Write strText","objFile.Close","'Exporter l'imprimante par défaut séparément","Définir colPrinters = objWMIService.ExecQuery _\n    ("Select * From Win32_Printer Où Default = TRUE")","Pour chaque objPrinter en colPrinters\n    strText = objPrinter.Name\nProchain","Définir objFSO = CreateObject ("Scripting.FileSystemObject")","Définir objFile = objFSO.CreateTextFile _\n    ("H: PRINTERS default.txt", ForWriting, False)","objFile.Write strText","objFile.Close","importPrinters.vbs\nNotez que, si vos utilisateurs sous Windows 7 ne sont pas administrateurs, vous devrez exécuter le script en tant qu'administrateur (il existe différentes manières) ou vous obtiendrez une invite UAC pour chaque installation d'imprimante et le redémarrage de l'impression. spouleur.\nEncore une fois, surveillez les chemins. Ceci est un script maison pour mon environnement spécifique.","Option explicite","'Ce script doit être exécuté avec les privilèges administor\n'S'il n'est pas exécuté avec des privilèges d'administrateur, il lancera une invite UAC pour chaque imprimante lorsqu'il parcourra la liste en boucle.\n'Voici un article intéressant sur l'utilisation de VBS en tant qu'utilisateur différent:\n'http://blogs.technet.com/b/heyscriptingguy/archive/2006/04/28/how-can-i-use-the-runas-command-torrun-a-script-under-alternate-user -credentials.aspx","'Par exemple:\n'runas / profile / user:[username][password] "cscript.exe " F: Recherche de pilote d'imprimante Automation printers-import.vbs ""","Dim objNetwork, strComputer, strName, strFolder, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, WshShell\nCONST ForReading = 1","'Créer un objet réseau\nSet objNetwork = CreateObject ("Wscript.Network")","'Obtenir le nom de la machine locale à partir de l'objet réseau\nstrComputer = objNetwork.ComputerName","'Obtenir le nom d'utilisateur de l'utilisateur à partir de l'objet Réseau\nstrName = objNetwork.UserName","'Créer un objet de système de fichiers\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")","'Enregistrer le nom du fichier texte en tant que variable\n'Notez que le script doit être exécuté en tant qu’administrateur et que l’appel du script avec\n'Exécuter en tant que provoque l'exécution du script comme s'il se trouvait dans le même répertoire que "% SystemRoot% System32 WScript.exe"\n'D'où la nécessité de transmettre le chemin d'accès complet au fichier printers.txt\nstrTextFile = "H: PRINTERS printers.txt"","'Ouvrez le fichier texte - strData contient maintenant tout le fichier\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll","'Diviser le fichier texte en lignes\narrLines = Split (strData, vbCrLf)","'Initialise le wshShell\nDéfinir WshShell = WScript.CreateObject ("WSCript.shell")","'Traverser les lignes\nPour chaque ligne en ligne","    Si Len (strLine)> 0 alors\n'N'exécute le processus que sur des lignes qui ne sont pas vides","'strRunCmd = "rundll32 printui.dll, PrintUIEntry / ga / c \\" & strComputer & "/ n" & strLine & ""\nstrRunCmd = "" "printui.exe" "/ ga / q / c \\" & strComputer & "/ n" & strLine & ""","'Renvoie la commande à exécuter\n'WScript.Echo strRunCmd","'Ceci lance printui.exe\n'strRunCmd = "" "printui.exe" ""","'Exécutez la commande, affichez la fenêtre et attendez la fin de la commande avant de continuer.\nRésultat faible\nresult = WshShell.Run (strRunCmd, 1, True)","'WScript.Echo résultat","'Écrivez dans le journal d'application que l'imprimante a été installée\nSi résultat = 0 alors\nWshShell.LogEvent 0, "User:" & strName & "- Evénement: tentative d'installation de l'imprimante" & strLine & "avec [\" & strRunCmd & \"] (succès inconnu) "\nFin si","'WScript.Echo "Imprimante traitée:" & strLine\n    Fin si","Prochain","'Nettoyer\nDéfinir objFSO = Nothing","'Attends 10 secondes\nWScript.Sleep 10000","'Redémarrez le spouleur d'impression\nRestartService "Spouleur d'impression", True","Sub RestartService (myService, blnQuiet)\n'Ce sous-programme redémarre un service\n' Arguments:\n'myService utilise le nom d'affichage du service\n'blnQuiet si False, l'état du service est affiché\n'chaque seconde pendant la procédure de redémarrage\n'\n'Écrit par Rob van der Woude\n'http://www.robvanderwoude.com","    «Ménage standard\n    Dim colServices, colServicesTest, objService\n    Dim objServiceTest, objWMIService, strQuery, strTest","    'Créer un objet WMI\n    Définissez objWMIService = GetObject ("winmgmts: \\. Root CIMV2")","    'Interrogez les services pour "notre" service\n    strQuery = "SELECT * FROM Win32_Service WHERE DisplayName = '" & myService & "'"\n    Définissez colServices = objWMIService.ExecQuery (strQuery, "WQL", 48)","    'Boucle à travers la "collection" de services rendus\n    Pour chaque objService dans colServices\n        'Voir si nous devons dire à l'utilisateur que nous allons arrêter le service\n        Si non blnQuiet alors\n            WScript.Echo "Arrêt" et monService\n        Fin si","        'Arrêtez le service\n        objService.StopService","        'Attendez que le service soit arrêté\n        Do Until strTest = "Stopped"\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)","            'Boucle à travers la "collection" de services rendus\n            Pour chaque objServiceTest dans colServicesTest\n                'Vérifier l'état du service\n                strTest = objServiceTest.State\n                'Voir si nous devons montrer les progrès\n                Si non blnQuiet alors\n                    WScript.Echo "State:" & strTest\n                Fin si\n                'Attendez 1 seconde\n                WScript.Sleep 1000\n            Prochain","            'Effacer l'objet temporaire\n            Définir colServicesTest = Nothing\n        Boucle","        'Voir si nous devons dire à l'utilisateur que nous allons (re) démarrer le service\n        Si non blnQuiet alors\n            WScript.Echo "Démarrage" & myService\n        Fin si","        'Démarrer le service\n        objService.StartService","        'Attendez que le service soit à nouveau opérationnel\n        Do Until strTest = "Running"\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)","            'Boucle à travers la "collection" de services rendus\n            Pour chaque objServiceTest dans colServicesTest\n                'Vérifier l'état du service\n                strTest = objServiceTest.State\n                'Voir si nous devons montrer les progrès\n                Si non blnQuiet alors\n                    WScript.Echo "State:" & strTest\n                Fin si\n                'Attendez 1 seconde\n                WScript.Sleep 1000\n            Prochain","            'Effacer l'objet temporaire\n            Définir colServicesTest = Nothing\n        Boucle\n    Prochain\nEnd Sub","setDefaultPrinter.vbs\nEnfin, nous voulons définir l’imprimante par défaut. L'imprimante devra déjà exister (évidemment). Si vous venez de lancer la commande printui.exe / ga pour installer l’imprimante, celle-ci ne sera disponible qu’au redémarrage du spouleur d’impression. Alors attendez une minute ou deux avant d'exécuter le script.","Option explicite","Dim objNetwork, strComputer, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, wshShell\nCONST ForReading = 1","'Créer un objet réseau\nSet objNetwork = CreateObject ("Wscript.Network")","'Obtenir le nom de la machine locale à partir de l'objet réseau\nstrComputer = objNetwork.ComputerName","'Enregistrer le nom du fichier texte en tant que variable\nstrTextFile = "H: PRINTERS default.txt"","'Créer un objet de système de fichiers\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")","'Ouvrez le fichier texte - strData contient maintenant tout le fichier\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll","'Diviser le fichier texte en lignes\narrLines = Split (strData, vbCrLf)","'Initialise le wshShell\nDéfinir wshShell = WScript.CreateObject ("WSCript.shell")","'Traverser les lignes\nPour chaque ligne en ligne","    Si Len (strLine)> 0 alors\n'N'exécute le processus que sur des lignes qui ne sont pas vides","'strRunCmd = "rundll32 printui.dll, PrintUIEntry / y / c \\" & strComputer & "/ n" & strLine & ""\nstrRunCmd = "" "printui.exe" "/ y / c " & strComputer & "/ n" "" & strLine & "" ""\n'wscript.echo strRunCmd\nwshShell.Run strRunCmd","'wscript.echo "Imprimante traitée:" & strLine\n    Fin si","Prochain","'Nettoyer\nDéfinir objFSO = Nothing","Au fur et à mesure de la migration, je reviendrai et peaufinerai les scripts. S'il vous plaît n'hésitez pas à laisser des commentaires et des suggestions.\nMerci à Rob van der Woude pour sa formidable page de contrôle des imprimantes en ligne de commande, ainsi que pour d’autres.","Click to rate this post!\n \n [Total: 0 Average: 0]"],"content_blocks":[{"id":"text-1","type":"text","heading":"","plain_text":"Dans le cadre d’une migration de Windows XP vers Windows 7, il m’a été demandé de trouver un moyen d’exporter les imprimantes réseau installées sur les ordinateurs XP afin qu’elles puissent être réinstallées sur les ordinateurs Windows 7. Nous ne voulions pas capturer les imprimantes locales (imprimantes installées via TCP / IP ou connectées via USB) ni les imprimantes virtuelles (telles que l'imprimante virtuelle Adobe PDF ou Microsoft XPS Document Writer). Je pensais que la migration des imprimantes était moins attrayante, car les ordinateurs sources sont sous Windows XP 32 bits, alors que les ordinateurs de destination sont sous Windows 7 64 bits et que les pilotes sont donc différents.\nIl existe différentes manières d’exporter des files d’impression, des paramètres d’imprimante et des ports d’imprimante, mais j’ai décidé que tout ce que je voulais, c’était de déterminer le nom de chaque imprimante (par exemple: \\ SERVER Printer) sur le XP. ordinateur, exportez-le dans un fichier texte sur un partage réseau, puis exécutez PrintUI.exe / ga sur la machine Windows 7 en parcourant les lignes du fichier texte en entrée.\n(Consultez l’assistant Migration d’imprimantes en lançant PrintBrmUI.exe ou la version en ligne de commande. % WINDIR% System32 Spool Tools Printbrm /?, pour des alternatives à printui.exe.)\nDe plus, j’exporte également le nom de l’imprimante par défaut afin qu’il puisse être défini par programme dans le nouvel environnement.\nLe code est un travail en cours, mais j'espère que cela vous aidera à démarrer.\nLes VBScripts\nVoici les scripts que j'ai reconstitués.\nexportPrinters.vbs\nLe script exportPrinters.vbs crée deux fichiers texte dans H: PRINTERS. Ajustez votre chemin en conséquence.","html":"

Dans le cadre d’une migration de Windows XP vers Windows 7, il m’a été demandé de trouver un moyen d’exporter les imprimantes réseau installées sur les ordinateurs XP afin qu’elles puissent être réinstallées sur les ordinateurs Windows 7. Nous ne voulions pas capturer les imprimantes locales (imprimantes installées via TCP / IP ou connectées via USB) ni les imprimantes virtuelles (telles que l'imprimante virtuelle Adobe PDF ou Microsoft XPS Document Writer). Je pensais que la migration des imprimantes était moins attrayante, car les ordinateurs sources sont sous Windows XP 32 bits, alors que les ordinateurs de destination sont sous Windows 7 64 bits et que les pilotes sont donc différents.\nIl existe différentes manières d’exporter des files d’impression, des paramètres d’imprimante et des ports d’imprimante, mais j’ai décidé que tout ce que je voulais, c’était de déterminer le nom de chaque imprimante (par exemple: \\ SERVER Printer) sur le XP. ordinateur, exportez-le dans un fichier texte sur un partage réseau, puis exécutez PrintUI.exe / ga sur la machine Windows 7 en parcourant les lignes du fichier texte en entrée.\n(Consultez l’assistant Migration d’imprimantes en lançant PrintBrmUI.exe ou la version en ligne de commande. % WINDIR% System32 Spool Tools Printbrm /?, pour des alternatives à printui.exe.)\nDe plus, j’exporte également le nom de l’imprimante par défaut afin qu’il puisse être défini par programme dans le nouvel environnement.\nLe code est un travail en cours, mais j'espère que cela vous aidera à démarrer.\nLes VBScripts\nVoici les scripts que j'ai reconstitués.\nexportPrinters.vbs\nLe script exportPrinters.vbs crée deux fichiers texte dans H: PRINTERS. Ajustez votre chemin en conséquence.

"},{"id":"text-2","type":"text","heading":"","plain_text":"Const ForWriting = 2","html":"

Const ForWriting = 2

"},{"id":"text-3","type":"text","heading":"","plain_text":"Set objNetwork = CreateObject ("Wscript.Network")","html":"

Set objNetwork = CreateObject ("Wscript.Network")

"},{"id":"text-4","type":"text","heading":"","plain_text":"strName = objNetwork.UserName\nstrDomain = objNetwork.UserDomain\nstrUser = strDomain & "" & strName","html":"

strName = objNetwork.UserName\nstrDomain = objNetwork.UserDomain\nstrUser = strDomain & "" & strName

"},{"id":"text-5","type":"text","heading":"","plain_text":"'strText = strUser & vbCrLf","html":"

'strText = strUser & vbCrLf

"},{"id":"text-6","type":"text","heading":"","plain_text":"strComputer = "."","html":"

strComputer = "."

"},{"id":"text-7","type":"text","heading":"","plain_text":"Définissez objWMIService = GetObject ("winmgmts: \\" & strComputer & " root cimv2")","html":"

Définissez objWMIService = GetObject ("winmgmts: \\" & strComputer & " root cimv2")

"},{"id":"text-8","type":"text","heading":"","plain_text":"'Exporter une liste d’imprimantes réseau dans un fichier texte","html":"

'Exporter une liste d’imprimantes réseau dans un fichier texte

"},{"id":"text-9","type":"text","heading":"","plain_text":"Définir colPrinters = objWMIService.ExecQuery _\n    ("Select * From Win32_Printer Where Local = FALSE")","html":"

Définir colPrinters = objWMIService.ExecQuery _\n    ("Select * From Win32_Printer Where Local = FALSE")

"},{"id":"text-10","type":"text","heading":"","plain_text":"Pour chaque objPrinter en colPrinters\n    strText = strText & objPrinter.Name & vbCrLf\nProchain","html":"

Pour chaque objPrinter en colPrinters\n    strText = strText & objPrinter.Name & vbCrLf\nProchain

"},{"id":"text-11","type":"text","heading":"","plain_text":"Définir objFSO = CreateObject ("Scripting.FileSystemObject")","html":"

Définir objFSO = CreateObject ("Scripting.FileSystemObject")

"},{"id":"text-12","type":"text","heading":"","plain_text":"strFolder = "H: IMPRIMANTES"","html":"

strFolder = "H: IMPRIMANTES"

"},{"id":"text-13","type":"text","heading":"","plain_text":"Si non objFSO.FolderExists (strFolder), alors\n    objFSO.CreateFolder (strFolder)\nFin si","html":"

Si non objFSO.FolderExists (strFolder), alors\n    objFSO.CreateFolder (strFolder)\nFin si

"},{"id":"text-14","type":"text","heading":"","plain_text":"Définir objFile = objFSO.CreateTextFile _\n    ("H: PRINTERS printers.txt", ForWriting, False)","html":"

Définir objFile = objFSO.CreateTextFile _\n    ("H: PRINTERS printers.txt", ForWriting, False)

"},{"id":"text-15","type":"text","heading":"","plain_text":"objFile.Write strText","html":"

objFile.Write strText

"},{"id":"text-16","type":"text","heading":"","plain_text":"objFile.Close","html":"

objFile.Close

"},{"id":"text-17","type":"text","heading":"","plain_text":"'Exporter l'imprimante par défaut séparément","html":"

'Exporter l'imprimante par défaut séparément

"},{"id":"text-18","type":"text","heading":"","plain_text":"Définir colPrinters = objWMIService.ExecQuery _\n    ("Select * From Win32_Printer Où Default = TRUE")","html":"

Définir colPrinters = objWMIService.ExecQuery _\n    ("Select * From Win32_Printer Où Default = TRUE")

"},{"id":"text-19","type":"text","heading":"","plain_text":"Pour chaque objPrinter en colPrinters\n    strText = objPrinter.Name\nProchain","html":"

Pour chaque objPrinter en colPrinters\n    strText = objPrinter.Name\nProchain

"},{"id":"text-20","type":"text","heading":"","plain_text":"Définir objFSO = CreateObject ("Scripting.FileSystemObject")","html":"

Définir objFSO = CreateObject ("Scripting.FileSystemObject")

"},{"id":"text-21","type":"text","heading":"","plain_text":"Définir objFile = objFSO.CreateTextFile _\n    ("H: PRINTERS default.txt", ForWriting, False)","html":"

Définir objFile = objFSO.CreateTextFile _\n    ("H: PRINTERS default.txt", ForWriting, False)

"},{"id":"text-22","type":"text","heading":"","plain_text":"objFile.Write strText","html":"

objFile.Write strText

"},{"id":"text-23","type":"text","heading":"","plain_text":"objFile.Close","html":"

objFile.Close

"},{"id":"text-24","type":"text","heading":"","plain_text":"importPrinters.vbs\nNotez que, si vos utilisateurs sous Windows 7 ne sont pas administrateurs, vous devrez exécuter le script en tant qu'administrateur (il existe différentes manières) ou vous obtiendrez une invite UAC pour chaque installation d'imprimante et le redémarrage de l'impression. spouleur.\nEncore une fois, surveillez les chemins. Ceci est un script maison pour mon environnement spécifique.","html":"

importPrinters.vbs\nNotez que, si vos utilisateurs sous Windows 7 ne sont pas administrateurs, vous devrez exécuter le script en tant qu'administrateur (il existe différentes manières) ou vous obtiendrez une invite UAC pour chaque installation d'imprimante et le redémarrage de l'impression. spouleur.\nEncore une fois, surveillez les chemins. Ceci est un script maison pour mon environnement spécifique.

"},{"id":"text-25","type":"text","heading":"","plain_text":"Option explicite","html":"

Option explicite

"},{"id":"text-26","type":"text","heading":"","plain_text":"'Ce script doit être exécuté avec les privilèges administor\n'S'il n'est pas exécuté avec des privilèges d'administrateur, il lancera une invite UAC pour chaque imprimante lorsqu'il parcourra la liste en boucle.\n'Voici un article intéressant sur l'utilisation de VBS en tant qu'utilisateur différent:\n'http://blogs.technet.com/b/heyscriptingguy/archive/2006/04/28/how-can-i-use-the-runas-command-torrun-a-script-under-alternate-user -credentials.aspx","html":"

'Ce script doit être exécuté avec les privilèges administor\n'S'il n'est pas exécuté avec des privilèges d'administrateur, il lancera une invite UAC pour chaque imprimante lorsqu'il parcourra la liste en boucle.\n'Voici un article intéressant sur l'utilisation de VBS en tant qu'utilisateur différent:\n'http://blogs.technet.com/b/heyscriptingguy/archive/2006/04/28/how-can-i-use-the-runas-command-torrun-a-script-under-alternate-user -credentials.aspx

"},{"id":"text-27","type":"text","heading":"","plain_text":"'Par exemple:\n'runas / profile / user:[username][password] "cscript.exe " F: Recherche de pilote d'imprimante Automation printers-import.vbs ""","html":"

'Par exemple:\n'runas / profile / user:[username][password] "cscript.exe " F: Recherche de pilote d'imprimante Automation printers-import.vbs ""

"},{"id":"text-28","type":"text","heading":"","plain_text":"Dim objNetwork, strComputer, strName, strFolder, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, WshShell\nCONST ForReading = 1","html":"

Dim objNetwork, strComputer, strName, strFolder, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, WshShell\nCONST ForReading = 1

"},{"id":"text-29","type":"text","heading":"","plain_text":"'Créer un objet réseau\nSet objNetwork = CreateObject ("Wscript.Network")","html":"

'Créer un objet réseau\nSet objNetwork = CreateObject ("Wscript.Network")

"},{"id":"text-30","type":"text","heading":"","plain_text":"'Obtenir le nom de la machine locale à partir de l'objet réseau\nstrComputer = objNetwork.ComputerName","html":"

'Obtenir le nom de la machine locale à partir de l'objet réseau\nstrComputer = objNetwork.ComputerName

"},{"id":"text-31","type":"text","heading":"","plain_text":"'Obtenir le nom d'utilisateur de l'utilisateur à partir de l'objet Réseau\nstrName = objNetwork.UserName","html":"

'Obtenir le nom d'utilisateur de l'utilisateur à partir de l'objet Réseau\nstrName = objNetwork.UserName

"},{"id":"text-32","type":"text","heading":"","plain_text":"'Créer un objet de système de fichiers\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")","html":"

'Créer un objet de système de fichiers\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")

"},{"id":"text-33","type":"text","heading":"","plain_text":"'Enregistrer le nom du fichier texte en tant que variable\n'Notez que le script doit être exécuté en tant qu’administrateur et que l’appel du script avec\n'Exécuter en tant que provoque l'exécution du script comme s'il se trouvait dans le même répertoire que "% SystemRoot% System32 WScript.exe"\n'D'où la nécessité de transmettre le chemin d'accès complet au fichier printers.txt\nstrTextFile = "H: PRINTERS printers.txt"","html":"

'Enregistrer le nom du fichier texte en tant que variable\n'Notez que le script doit être exécuté en tant qu’administrateur et que l’appel du script avec\n'Exécuter en tant que provoque l'exécution du script comme s'il se trouvait dans le même répertoire que "% SystemRoot% System32 WScript.exe"\n'D'où la nécessité de transmettre le chemin d'accès complet au fichier printers.txt\nstrTextFile = "H: PRINTERS printers.txt"

"},{"id":"text-34","type":"text","heading":"","plain_text":"'Ouvrez le fichier texte - strData contient maintenant tout le fichier\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll","html":"

'Ouvrez le fichier texte - strData contient maintenant tout le fichier\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll

"},{"id":"text-35","type":"text","heading":"","plain_text":"'Diviser le fichier texte en lignes\narrLines = Split (strData, vbCrLf)","html":"

'Diviser le fichier texte en lignes\narrLines = Split (strData, vbCrLf)

"},{"id":"text-36","type":"text","heading":"","plain_text":"'Initialise le wshShell\nDéfinir WshShell = WScript.CreateObject ("WSCript.shell")","html":"

'Initialise le wshShell\nDéfinir WshShell = WScript.CreateObject ("WSCript.shell")

"},{"id":"text-37","type":"text","heading":"","plain_text":"'Traverser les lignes\nPour chaque ligne en ligne","html":"

'Traverser les lignes\nPour chaque ligne en ligne

"},{"id":"text-38","type":"text","heading":"","plain_text":"    Si Len (strLine)> 0 alors\n'N'exécute le processus que sur des lignes qui ne sont pas vides","html":"

    Si Len (strLine)> 0 alors\n'N'exécute le processus que sur des lignes qui ne sont pas vides

"},{"id":"text-39","type":"text","heading":"","plain_text":"'strRunCmd = "rundll32 printui.dll, PrintUIEntry / ga / c \\" & strComputer & "/ n" & strLine & ""\nstrRunCmd = "" "printui.exe" "/ ga / q / c \\" & strComputer & "/ n" & strLine & ""","html":"

'strRunCmd = "rundll32 printui.dll, PrintUIEntry / ga / c \\" & strComputer & "/ n" & strLine & ""\nstrRunCmd = "" "printui.exe" "/ ga / q / c \\" & strComputer & "/ n" & strLine & ""

"},{"id":"text-40","type":"text","heading":"","plain_text":"'Renvoie la commande à exécuter\n'WScript.Echo strRunCmd","html":"

'Renvoie la commande à exécuter\n'WScript.Echo strRunCmd

"},{"id":"text-41","type":"text","heading":"","plain_text":"'Ceci lance printui.exe\n'strRunCmd = "" "printui.exe" ""","html":"

'Ceci lance printui.exe\n'strRunCmd = "" "printui.exe" ""

"},{"id":"text-42","type":"text","heading":"","plain_text":"'Exécutez la commande, affichez la fenêtre et attendez la fin de la commande avant de continuer.\nRésultat faible\nresult = WshShell.Run (strRunCmd, 1, True)","html":"

'Exécutez la commande, affichez la fenêtre et attendez la fin de la commande avant de continuer.\nRésultat faible\nresult = WshShell.Run (strRunCmd, 1, True)

"},{"id":"text-43","type":"text","heading":"","plain_text":"'WScript.Echo résultat","html":"

'WScript.Echo résultat

"},{"id":"text-44","type":"text","heading":"","plain_text":"'Écrivez dans le journal d'application que l'imprimante a été installée\nSi résultat = 0 alors\nWshShell.LogEvent 0, "User:" & strName & "- Evénement: tentative d'installation de l'imprimante" & strLine & "avec [\" & strRunCmd & \"] (succès inconnu) "\nFin si","html":"

'Écrivez dans le journal d'application que l'imprimante a été installée\nSi résultat = 0 alors\nWshShell.LogEvent 0, "User:" & strName & "- Evénement: tentative d'installation de l'imprimante" & strLine & "avec [" & strRunCmd & "] (succès inconnu) "\nFin si

"},{"id":"text-45","type":"text","heading":"","plain_text":"'WScript.Echo "Imprimante traitée:" & strLine\n    Fin si","html":"

'WScript.Echo "Imprimante traitée:" & strLine\n    Fin si

"},{"id":"text-46","type":"text","heading":"","plain_text":"Prochain","html":"

Prochain

"},{"id":"text-47","type":"text","heading":"","plain_text":"'Nettoyer\nDéfinir objFSO = Nothing","html":"

'Nettoyer\nDéfinir objFSO = Nothing

"},{"id":"text-48","type":"text","heading":"","plain_text":"'Attends 10 secondes\nWScript.Sleep 10000","html":"

'Attends 10 secondes\nWScript.Sleep 10000

"},{"id":"text-49","type":"text","heading":"","plain_text":"'Redémarrez le spouleur d'impression\nRestartService "Spouleur d'impression", True","html":"

'Redémarrez le spouleur d'impression\nRestartService "Spouleur d'impression", True

"},{"id":"text-50","type":"text","heading":"","plain_text":"Sub RestartService (myService, blnQuiet)\n'Ce sous-programme redémarre un service\n' Arguments:\n'myService utilise le nom d'affichage du service\n'blnQuiet si False, l'état du service est affiché\n'chaque seconde pendant la procédure de redémarrage\n'\n'Écrit par Rob van der Woude\n'http://www.robvanderwoude.com","html":"

Sub RestartService (myService, blnQuiet)\n'Ce sous-programme redémarre un service\n' Arguments:\n'myService utilise le nom d'affichage du service\n'blnQuiet si False, l'état du service est affiché\n'chaque seconde pendant la procédure de redémarrage\n'\n'Écrit par Rob van der Woude\n'http://www.robvanderwoude.com

"},{"id":"text-51","type":"text","heading":"","plain_text":"    «Ménage standard\n    Dim colServices, colServicesTest, objService\n    Dim objServiceTest, objWMIService, strQuery, strTest","html":"

    «Ménage standard\n    Dim colServices, colServicesTest, objService\n    Dim objServiceTest, objWMIService, strQuery, strTest

"},{"id":"text-52","type":"text","heading":"","plain_text":"    'Créer un objet WMI\n    Définissez objWMIService = GetObject ("winmgmts: \\. Root CIMV2")","html":"

    'Créer un objet WMI\n    Définissez objWMIService = GetObject ("winmgmts: \\. Root CIMV2")

"},{"id":"text-53","type":"text","heading":"","plain_text":"    'Interrogez les services pour "notre" service\n    strQuery = "SELECT * FROM Win32_Service WHERE DisplayName = '" & myService & "'"\n    Définissez colServices = objWMIService.ExecQuery (strQuery, "WQL", 48)","html":"

    'Interrogez les services pour "notre" service\n    strQuery = "SELECT * FROM Win32_Service WHERE DisplayName = '" & myService & "'"\n    Définissez colServices = objWMIService.ExecQuery (strQuery, "WQL", 48)

"},{"id":"text-54","type":"text","heading":"","plain_text":"    'Boucle à travers la "collection" de services rendus\n    Pour chaque objService dans colServices\n        'Voir si nous devons dire à l'utilisateur que nous allons arrêter le service\n        Si non blnQuiet alors\n            WScript.Echo "Arrêt" et monService\n        Fin si","html":"

    'Boucle à travers la "collection" de services rendus\n    Pour chaque objService dans colServices\n        'Voir si nous devons dire à l'utilisateur que nous allons arrêter le service\n        Si non blnQuiet alors\n            WScript.Echo "Arrêt" et monService\n        Fin si

"},{"id":"text-55","type":"text","heading":"","plain_text":"        'Arrêtez le service\n        objService.StopService","html":"

        'Arrêtez le service\n        objService.StopService

"},{"id":"text-56","type":"text","heading":"","plain_text":"        'Attendez que le service soit arrêté\n        Do Until strTest = "Stopped"\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)","html":"

        'Attendez que le service soit arrêté\n        Do Until strTest = "Stopped"\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)

"},{"id":"text-57","type":"text","heading":"","plain_text":"            'Boucle à travers la "collection" de services rendus\n            Pour chaque objServiceTest dans colServicesTest\n                'Vérifier l'état du service\n                strTest = objServiceTest.State\n                'Voir si nous devons montrer les progrès\n                Si non blnQuiet alors\n                    WScript.Echo "State:" & strTest\n                Fin si\n                'Attendez 1 seconde\n                WScript.Sleep 1000\n            Prochain","html":"

            'Boucle à travers la "collection" de services rendus\n            Pour chaque objServiceTest dans colServicesTest\n                'Vérifier l'état du service\n                strTest = objServiceTest.State\n                'Voir si nous devons montrer les progrès\n                Si non blnQuiet alors\n                    WScript.Echo "State:" & strTest\n                Fin si\n                'Attendez 1 seconde\n                WScript.Sleep 1000\n            Prochain

"},{"id":"text-58","type":"text","heading":"","plain_text":"            'Effacer l'objet temporaire\n            Définir colServicesTest = Nothing\n        Boucle","html":"

            'Effacer l'objet temporaire\n            Définir colServicesTest = Nothing\n        Boucle

"},{"id":"text-59","type":"text","heading":"","plain_text":"        'Voir si nous devons dire à l'utilisateur que nous allons (re) démarrer le service\n        Si non blnQuiet alors\n            WScript.Echo "Démarrage" & myService\n        Fin si","html":"

        'Voir si nous devons dire à l'utilisateur que nous allons (re) démarrer le service\n        Si non blnQuiet alors\n            WScript.Echo "Démarrage" & myService\n        Fin si

"},{"id":"text-60","type":"text","heading":"","plain_text":"        'Démarrer le service\n        objService.StartService","html":"

        'Démarrer le service\n        objService.StartService

"},{"id":"text-61","type":"text","heading":"","plain_text":"        'Attendez que le service soit à nouveau opérationnel\n        Do Until strTest = "Running"\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)","html":"

        'Attendez que le service soit à nouveau opérationnel\n        Do Until strTest = "Running"\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)

"},{"id":"text-62","type":"text","heading":"","plain_text":"            'Boucle à travers la "collection" de services rendus\n            Pour chaque objServiceTest dans colServicesTest\n                'Vérifier l'état du service\n                strTest = objServiceTest.State\n                'Voir si nous devons montrer les progrès\n                Si non blnQuiet alors\n                    WScript.Echo "State:" & strTest\n                Fin si\n                'Attendez 1 seconde\n                WScript.Sleep 1000\n            Prochain","html":"

            'Boucle à travers la "collection" de services rendus\n            Pour chaque objServiceTest dans colServicesTest\n                'Vérifier l'état du service\n                strTest = objServiceTest.State\n                'Voir si nous devons montrer les progrès\n                Si non blnQuiet alors\n                    WScript.Echo "State:" & strTest\n                Fin si\n                'Attendez 1 seconde\n                WScript.Sleep 1000\n            Prochain

"},{"id":"text-63","type":"text","heading":"","plain_text":"            'Effacer l'objet temporaire\n            Définir colServicesTest = Nothing\n        Boucle\n    Prochain\nEnd Sub","html":"

            'Effacer l'objet temporaire\n            Définir colServicesTest = Nothing\n        Boucle\n    Prochain\nEnd Sub

"},{"id":"text-64","type":"text","heading":"","plain_text":"setDefaultPrinter.vbs\nEnfin, nous voulons définir l’imprimante par défaut. L'imprimante devra déjà exister (évidemment). Si vous venez de lancer la commande printui.exe / ga pour installer l’imprimante, celle-ci ne sera disponible qu’au redémarrage du spouleur d’impression. Alors attendez une minute ou deux avant d'exécuter le script.","html":"

setDefaultPrinter.vbs\nEnfin, nous voulons définir l’imprimante par défaut. L'imprimante devra déjà exister (évidemment). Si vous venez de lancer la commande printui.exe / ga pour installer l’imprimante, celle-ci ne sera disponible qu’au redémarrage du spouleur d’impression. Alors attendez une minute ou deux avant d'exécuter le script.

"},{"id":"text-65","type":"text","heading":"","plain_text":"Option explicite","html":"

Option explicite

"},{"id":"text-66","type":"text","heading":"","plain_text":"Dim objNetwork, strComputer, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, wshShell\nCONST ForReading = 1","html":"

Dim objNetwork, strComputer, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, wshShell\nCONST ForReading = 1

"},{"id":"text-67","type":"text","heading":"","plain_text":"'Créer un objet réseau\nSet objNetwork = CreateObject ("Wscript.Network")","html":"

'Créer un objet réseau\nSet objNetwork = CreateObject ("Wscript.Network")

"},{"id":"text-68","type":"text","heading":"","plain_text":"'Obtenir le nom de la machine locale à partir de l'objet réseau\nstrComputer = objNetwork.ComputerName","html":"

'Obtenir le nom de la machine locale à partir de l'objet réseau\nstrComputer = objNetwork.ComputerName

"},{"id":"text-69","type":"text","heading":"","plain_text":"'Enregistrer le nom du fichier texte en tant que variable\nstrTextFile = "H: PRINTERS default.txt"","html":"

'Enregistrer le nom du fichier texte en tant que variable\nstrTextFile = "H: PRINTERS default.txt"

"},{"id":"text-70","type":"text","heading":"","plain_text":"'Créer un objet de système de fichiers\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")","html":"

'Créer un objet de système de fichiers\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")

"},{"id":"text-71","type":"text","heading":"","plain_text":"'Ouvrez le fichier texte - strData contient maintenant tout le fichier\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll","html":"

'Ouvrez le fichier texte - strData contient maintenant tout le fichier\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll

"},{"id":"text-72","type":"text","heading":"","plain_text":"'Diviser le fichier texte en lignes\narrLines = Split (strData, vbCrLf)","html":"

'Diviser le fichier texte en lignes\narrLines = Split (strData, vbCrLf)

"},{"id":"text-73","type":"text","heading":"","plain_text":"'Initialise le wshShell\nDéfinir wshShell = WScript.CreateObject ("WSCript.shell")","html":"

'Initialise le wshShell\nDéfinir wshShell = WScript.CreateObject ("WSCript.shell")

"},{"id":"text-74","type":"text","heading":"","plain_text":"'Traverser les lignes\nPour chaque ligne en ligne","html":"

'Traverser les lignes\nPour chaque ligne en ligne

"},{"id":"text-75","type":"text","heading":"","plain_text":"    Si Len (strLine)> 0 alors\n'N'exécute le processus que sur des lignes qui ne sont pas vides","html":"

    Si Len (strLine)> 0 alors\n'N'exécute le processus que sur des lignes qui ne sont pas vides

"},{"id":"text-76","type":"text","heading":"","plain_text":"'strRunCmd = "rundll32 printui.dll, PrintUIEntry / y / c \\" & strComputer & "/ n" & strLine & ""\nstrRunCmd = "" "printui.exe" "/ y / c " & strComputer & "/ n" "" & strLine & "" ""\n'wscript.echo strRunCmd\nwshShell.Run strRunCmd","html":"

'strRunCmd = "rundll32 printui.dll, PrintUIEntry / y / c \\" & strComputer & "/ n" & strLine & ""\nstrRunCmd = "" "printui.exe" "/ y / c " & strComputer & "/ n" "" & strLine & "" ""\n'wscript.echo strRunCmd\nwshShell.Run strRunCmd

"},{"id":"text-77","type":"text","heading":"","plain_text":"'wscript.echo "Imprimante traitée:" & strLine\n    Fin si","html":"

'wscript.echo "Imprimante traitée:" & strLine\n    Fin si

"},{"id":"text-78","type":"text","heading":"","plain_text":"Prochain","html":"

Prochain

"},{"id":"text-79","type":"text","heading":"","plain_text":"'Nettoyer\nDéfinir objFSO = Nothing","html":"

'Nettoyer\nDéfinir objFSO = Nothing

"},{"id":"text-80","type":"text","heading":"","plain_text":"Au fur et à mesure de la migration, je reviendrai et peaufinerai les scripts. S'il vous plaît n'hésitez pas à laisser des commentaires et des suggestions.\nMerci à Rob van der Woude pour sa formidable page de contrôle des imprimantes en ligne de commande, ainsi que pour d’autres.","html":"

Au fur et à mesure de la migration, je reviendrai et peaufinerai les scripts. S'il vous plaît n'hésitez pas à laisser des commentaires et des suggestions.\nMerci à Rob van der Woude pour sa formidable page de contrôle des imprimantes en ligne de commande, ainsi que pour d’autres.

"},{"id":"text-81","type":"text","heading":"","plain_text":"Click to rate this post!\n \n [Total: 0 Average: 0]","html":"

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

"}],"sections":[{"id":"text-1","heading":"Text","content":"Dans le cadre d’une migration de Windows XP vers Windows 7, il m’a été demandé de trouver un moyen d’exporter les imprimantes réseau installées sur les ordinateurs XP afin qu’elles puissent être réinstallées sur les ordinateurs Windows 7. Nous ne voulions pas capturer les imprimantes locales (imprimantes installées via TCP / IP ou connectées via USB) ni les imprimantes virtuelles (telles que l'imprimante virtuelle Adobe PDF ou Microsoft XPS Document Writer). Je pensais que la migration des imprimantes était moins attrayante, car les ordinateurs sources sont sous Windows XP 32 bits, alors que les ordinateurs de destination sont sous Windows 7 64 bits et que les pilotes sont donc différents.\nIl existe différentes manières d’exporter des files d’impression, des paramètres d’imprimante et des ports d’imprimante, mais j’ai décidé que tout ce que je voulais, c’était de déterminer le nom de chaque imprimante (par exemple: \\ SERVER Printer) sur le XP. ordinateur, exportez-le dans un fichier texte sur un partage réseau, puis exécutez PrintUI.exe / ga sur la machine Windows 7 en parcourant les lignes du fichier texte en entrée.\n(Consultez l’assistant Migration d’imprimantes en lançant PrintBrmUI.exe ou la version en ligne de commande. % WINDIR% System32 Spool Tools Printbrm /?, pour des alternatives à printui.exe.)\nDe plus, j’exporte également le nom de l’imprimante par défaut afin qu’il puisse être défini par programme dans le nouvel environnement.\nLe code est un travail en cours, mais j'espère que cela vous aidera à démarrer.\nLes VBScripts\nVoici les scripts que j'ai reconstitués.\nexportPrinters.vbs\nLe script exportPrinters.vbs crée deux fichiers texte dans H: PRINTERS. Ajustez votre chemin en conséquence."},{"id":"text-2","heading":"Text","content":"Const ForWriting = 2"},{"id":"text-3","heading":"Text","content":"Set objNetwork = CreateObject ("Wscript.Network")"},{"id":"text-4","heading":"Text","content":"strName = objNetwork.UserName\nstrDomain = objNetwork.UserDomain\nstrUser = strDomain & "" & strName"},{"id":"text-5","heading":"Text","content":"'strText = strUser & vbCrLf"},{"id":"text-6","heading":"Text","content":"strComputer = ".""},{"id":"text-7","heading":"Text","content":"Définissez objWMIService = GetObject ("winmgmts: \\" & strComputer & " root cimv2")"},{"id":"text-8","heading":"Text","content":"'Exporter une liste d’imprimantes réseau dans un fichier texte"},{"id":"text-9","heading":"Text","content":"Définir colPrinters = objWMIService.ExecQuery _\n    ("Select * From Win32_Printer Where Local = FALSE")"},{"id":"text-10","heading":"Text","content":"Pour chaque objPrinter en colPrinters\n    strText = strText & objPrinter.Name & vbCrLf\nProchain"},{"id":"text-11","heading":"Text","content":"Définir objFSO = CreateObject ("Scripting.FileSystemObject")"},{"id":"text-12","heading":"Text","content":"strFolder = "H: IMPRIMANTES""},{"id":"text-13","heading":"Text","content":"Si non objFSO.FolderExists (strFolder), alors\n    objFSO.CreateFolder (strFolder)\nFin si"},{"id":"text-14","heading":"Text","content":"Définir objFile = objFSO.CreateTextFile _\n    ("H: PRINTERS printers.txt", ForWriting, False)"},{"id":"text-15","heading":"Text","content":"objFile.Write strText"},{"id":"text-16","heading":"Text","content":"objFile.Close"},{"id":"text-17","heading":"Text","content":"'Exporter l'imprimante par défaut séparément"},{"id":"text-18","heading":"Text","content":"Définir colPrinters = objWMIService.ExecQuery _\n    ("Select * From Win32_Printer Où Default = TRUE")"},{"id":"text-19","heading":"Text","content":"Pour chaque objPrinter en colPrinters\n    strText = objPrinter.Name\nProchain"},{"id":"text-20","heading":"Text","content":"Définir objFSO = CreateObject ("Scripting.FileSystemObject")"},{"id":"text-21","heading":"Text","content":"Définir objFile = objFSO.CreateTextFile _\n    ("H: PRINTERS default.txt", ForWriting, False)"},{"id":"text-22","heading":"Text","content":"objFile.Write strText"},{"id":"text-23","heading":"Text","content":"objFile.Close"},{"id":"text-24","heading":"Text","content":"importPrinters.vbs\nNotez que, si vos utilisateurs sous Windows 7 ne sont pas administrateurs, vous devrez exécuter le script en tant qu'administrateur (il existe différentes manières) ou vous obtiendrez une invite UAC pour chaque installation d'imprimante et le redémarrage de l'impression. spouleur.\nEncore une fois, surveillez les chemins. Ceci est un script maison pour mon environnement spécifique."},{"id":"text-25","heading":"Text","content":"Option explicite"},{"id":"text-26","heading":"Text","content":"'Ce script doit être exécuté avec les privilèges administor\n'S'il n'est pas exécuté avec des privilèges d'administrateur, il lancera une invite UAC pour chaque imprimante lorsqu'il parcourra la liste en boucle.\n'Voici un article intéressant sur l'utilisation de VBS en tant qu'utilisateur différent:\n'http://blogs.technet.com/b/heyscriptingguy/archive/2006/04/28/how-can-i-use-the-runas-command-torrun-a-script-under-alternate-user -credentials.aspx"},{"id":"text-27","heading":"Text","content":"'Par exemple:\n'runas / profile / user:[username][password] "cscript.exe " F: Recherche de pilote d'imprimante Automation printers-import.vbs """},{"id":"text-28","heading":"Text","content":"Dim objNetwork, strComputer, strName, strFolder, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, WshShell\nCONST ForReading = 1"},{"id":"text-29","heading":"Text","content":"'Créer un objet réseau\nSet objNetwork = CreateObject ("Wscript.Network")"},{"id":"text-30","heading":"Text","content":"'Obtenir le nom de la machine locale à partir de l'objet réseau\nstrComputer = objNetwork.ComputerName"},{"id":"text-31","heading":"Text","content":"'Obtenir le nom d'utilisateur de l'utilisateur à partir de l'objet Réseau\nstrName = objNetwork.UserName"},{"id":"text-32","heading":"Text","content":"'Créer un objet de système de fichiers\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")"},{"id":"text-33","heading":"Text","content":"'Enregistrer le nom du fichier texte en tant que variable\n'Notez que le script doit être exécuté en tant qu’administrateur et que l’appel du script avec\n'Exécuter en tant que provoque l'exécution du script comme s'il se trouvait dans le même répertoire que "% SystemRoot% System32 WScript.exe"\n'D'où la nécessité de transmettre le chemin d'accès complet au fichier printers.txt\nstrTextFile = "H: PRINTERS printers.txt""},{"id":"text-34","heading":"Text","content":"'Ouvrez le fichier texte - strData contient maintenant tout le fichier\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll"},{"id":"text-35","heading":"Text","content":"'Diviser le fichier texte en lignes\narrLines = Split (strData, vbCrLf)"},{"id":"text-36","heading":"Text","content":"'Initialise le wshShell\nDéfinir WshShell = WScript.CreateObject ("WSCript.shell")"},{"id":"text-37","heading":"Text","content":"'Traverser les lignes\nPour chaque ligne en ligne"},{"id":"text-38","heading":"Text","content":"    Si Len (strLine)> 0 alors\n'N'exécute le processus que sur des lignes qui ne sont pas vides"},{"id":"text-39","heading":"Text","content":"'strRunCmd = "rundll32 printui.dll, PrintUIEntry / ga / c \\" & strComputer & "/ n" & strLine & ""\nstrRunCmd = "" "printui.exe" "/ ga / q / c \\" & strComputer & "/ n" & strLine & """},{"id":"text-40","heading":"Text","content":"'Renvoie la commande à exécuter\n'WScript.Echo strRunCmd"},{"id":"text-41","heading":"Text","content":"'Ceci lance printui.exe\n'strRunCmd = "" "printui.exe" """},{"id":"text-42","heading":"Text","content":"'Exécutez la commande, affichez la fenêtre et attendez la fin de la commande avant de continuer.\nRésultat faible\nresult = WshShell.Run (strRunCmd, 1, True)"},{"id":"text-43","heading":"Text","content":"'WScript.Echo résultat"},{"id":"text-44","heading":"Text","content":"'Écrivez dans le journal d'application que l'imprimante a été installée\nSi résultat = 0 alors\nWshShell.LogEvent 0, "User:" & strName & "- Evénement: tentative d'installation de l'imprimante" & strLine & "avec [\" & strRunCmd & \"] (succès inconnu) "\nFin si"},{"id":"text-45","heading":"Text","content":"'WScript.Echo "Imprimante traitée:" & strLine\n    Fin si"},{"id":"text-46","heading":"Text","content":"Prochain"},{"id":"text-47","heading":"Text","content":"'Nettoyer\nDéfinir objFSO = Nothing"},{"id":"text-48","heading":"Text","content":"'Attends 10 secondes\nWScript.Sleep 10000"},{"id":"text-49","heading":"Text","content":"'Redémarrez le spouleur d'impression\nRestartService "Spouleur d'impression", True"},{"id":"text-50","heading":"Text","content":"Sub RestartService (myService, blnQuiet)\n'Ce sous-programme redémarre un service\n' Arguments:\n'myService utilise le nom d'affichage du service\n'blnQuiet si False, l'état du service est affiché\n'chaque seconde pendant la procédure de redémarrage\n'\n'Écrit par Rob van der Woude\n'http://www.robvanderwoude.com"},{"id":"text-51","heading":"Text","content":"    «Ménage standard\n    Dim colServices, colServicesTest, objService\n    Dim objServiceTest, objWMIService, strQuery, strTest"},{"id":"text-52","heading":"Text","content":"    'Créer un objet WMI\n    Définissez objWMIService = GetObject ("winmgmts: \\. Root CIMV2")"},{"id":"text-53","heading":"Text","content":"    'Interrogez les services pour "notre" service\n    strQuery = "SELECT * FROM Win32_Service WHERE DisplayName = '" & myService & "'"\n    Définissez colServices = objWMIService.ExecQuery (strQuery, "WQL", 48)"},{"id":"text-54","heading":"Text","content":"    'Boucle à travers la "collection" de services rendus\n    Pour chaque objService dans colServices\n        'Voir si nous devons dire à l'utilisateur que nous allons arrêter le service\n        Si non blnQuiet alors\n            WScript.Echo "Arrêt" et monService\n        Fin si"},{"id":"text-55","heading":"Text","content":"        'Arrêtez le service\n        objService.StopService"},{"id":"text-56","heading":"Text","content":"        'Attendez que le service soit arrêté\n        Do Until strTest = "Stopped"\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)"},{"id":"text-57","heading":"Text","content":"            'Boucle à travers la "collection" de services rendus\n            Pour chaque objServiceTest dans colServicesTest\n                'Vérifier l'état du service\n                strTest = objServiceTest.State\n                'Voir si nous devons montrer les progrès\n                Si non blnQuiet alors\n                    WScript.Echo "State:" & strTest\n                Fin si\n                'Attendez 1 seconde\n                WScript.Sleep 1000\n            Prochain"},{"id":"text-58","heading":"Text","content":"            'Effacer l'objet temporaire\n            Définir colServicesTest = Nothing\n        Boucle"},{"id":"text-59","heading":"Text","content":"        'Voir si nous devons dire à l'utilisateur que nous allons (re) démarrer le service\n        Si non blnQuiet alors\n            WScript.Echo "Démarrage" & myService\n        Fin si"},{"id":"text-60","heading":"Text","content":"        'Démarrer le service\n        objService.StartService"},{"id":"text-61","heading":"Text","content":"        'Attendez que le service soit à nouveau opérationnel\n        Do Until strTest = "Running"\n            'Créer un nouvel objet pour notre service; cette solution est nécessaire\n            'sinon les informations d'état du service ne sont pas correctement mises à jour\n            Définir colServicesTest = objWMIService.ExecQuery (strQuery, "WQL", 48)"},{"id":"text-62","heading":"Text","content":"            'Boucle à travers la "collection" de services rendus\n            Pour chaque objServiceTest dans colServicesTest\n                'Vérifier l'état du service\n                strTest = objServiceTest.State\n                'Voir si nous devons montrer les progrès\n                Si non blnQuiet alors\n                    WScript.Echo "State:" & strTest\n                Fin si\n                'Attendez 1 seconde\n                WScript.Sleep 1000\n            Prochain"},{"id":"text-63","heading":"Text","content":"            'Effacer l'objet temporaire\n            Définir colServicesTest = Nothing\n        Boucle\n    Prochain\nEnd Sub"},{"id":"text-64","heading":"Text","content":"setDefaultPrinter.vbs\nEnfin, nous voulons définir l’imprimante par défaut. L'imprimante devra déjà exister (évidemment). Si vous venez de lancer la commande printui.exe / ga pour installer l’imprimante, celle-ci ne sera disponible qu’au redémarrage du spouleur d’impression. Alors attendez une minute ou deux avant d'exécuter le script."},{"id":"text-65","heading":"Text","content":"Option explicite"},{"id":"text-66","heading":"Text","content":"Dim objNetwork, strComputer, objFSO, strTextFile, strData, strLine, arrLines, strRunCmd, wshShell\nCONST ForReading = 1"},{"id":"text-67","heading":"Text","content":"'Créer un objet réseau\nSet objNetwork = CreateObject ("Wscript.Network")"},{"id":"text-68","heading":"Text","content":"'Obtenir le nom de la machine locale à partir de l'objet réseau\nstrComputer = objNetwork.ComputerName"},{"id":"text-69","heading":"Text","content":"'Enregistrer le nom du fichier texte en tant que variable\nstrTextFile = "H: PRINTERS default.txt""},{"id":"text-70","heading":"Text","content":"'Créer un objet de système de fichiers\nDéfinir objFSO = CreateObject ("Scripting.FileSystemObject")"},{"id":"text-71","heading":"Text","content":"'Ouvrez le fichier texte - strData contient maintenant tout le fichier\nstrData = objFSO.OpenTextFile (strTextFile, ForReading) .ReadAll"},{"id":"text-72","heading":"Text","content":"'Diviser le fichier texte en lignes\narrLines = Split (strData, vbCrLf)"},{"id":"text-73","heading":"Text","content":"'Initialise le wshShell\nDéfinir wshShell = WScript.CreateObject ("WSCript.shell")"},{"id":"text-74","heading":"Text","content":"'Traverser les lignes\nPour chaque ligne en ligne"},{"id":"text-75","heading":"Text","content":"    Si Len (strLine)> 0 alors\n'N'exécute le processus que sur des lignes qui ne sont pas vides"},{"id":"text-76","heading":"Text","content":"'strRunCmd = "rundll32 printui.dll, PrintUIEntry / y / c \\" & strComputer & "/ n" & strLine & ""\nstrRunCmd = "" "printui.exe" "/ y / c " & strComputer & "/ n" "" & strLine & "" ""\n'wscript.echo strRunCmd\nwshShell.Run strRunCmd"},{"id":"text-77","heading":"Text","content":"'wscript.echo "Imprimante traitée:" & strLine\n    Fin si"},{"id":"text-78","heading":"Text","content":"Prochain"},{"id":"text-79","heading":"Text","content":"'Nettoyer\nDéfinir objFSO = Nothing"},{"id":"text-80","heading":"Text","content":"Au fur et à mesure de la migration, je reviendrai et peaufinerai les scripts. S'il vous plaît n'hésitez pas à laisser des commentaires et des suggestions.\nMerci à Rob van der Woude pour sa formidable page de contrôle des imprimantes en ligne de commande, ainsi que pour d’autres."},{"id":"text-81","heading":"Text","content":"Click to rate this post!\n \n [Total: 0 Average: 0]"}],"media":{"primary_image":""},"relations":[{"rel":"canonical","href":"https://tutos-gameserver.fr/2019/09/03/migration-des-imprimantes-reseau-avec-vbscript-bien-choisir-son-serveur-d-impression/"},{"rel":"alternate","href":"https://tutos-gameserver.fr/2019/09/03/migration-des-imprimantes-reseau-avec-vbscript-bien-choisir-son-serveur-d-impression/llm","type":"text/html"},{"rel":"alternate","href":"https://tutos-gameserver.fr/2019/09/03/migration-des-imprimantes-reseau-avec-vbscript-bien-choisir-son-serveur-d-impression/llm.json","type":"application/json"},{"rel":"llm-manifest","href":"https://tutos-gameserver.fr/llm-endpoints-manifest.json","type":"application/json"}],"http_headers":{"X-LLM-Friendly":"1","X-LLM-Schema":"1.1.0","Content-Security-Policy":"default-src 'none'; img-src * data:; style-src 'unsafe-inline'"},"license":"CC BY-ND 4.0","attribution_required":true,"allow_cors":false}