Script pour installer une imprimante réseau - le retour
1 réponse
fp
bonjour
merci à Jean-claude, éric et techniland, le forum est réactif c'est bien
dans la continuité de la 1ère question, comment peut-on tester dans le
script si l'imprimante est installée sur le poste client avant le lancement
des commandes con2prt /c \\serveur\imp_partagée ou rundll32
printui.dll,PrintUIEntry /in /n \\serveur\imp_partagée
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fabricem [MS]
Bonjour
Avec un script WSH en enumérant les imprimantes local
Set WshNetwork = WScript.CreateObject("WScript.Network") Set oPrinters = WshNetwork.EnumPrinterConnections For i = 0 to oPrinters.Count -1 WScript.Echo oPrinters.Item(i) NextPuis faire un test ...PS on pourrait même tout faire en vbsSet WshNetwork = CreateObject("WScript.Network") Set PrinterPath = "printservDefaultPrinter" Set PrinterDriver = "Lexmark Optra S 1650" Set rc = WshNetwork.AddWindowsPrinterConnection(PrinterPath, PrinterDriver) If Not rc then WScript.Echo("Printer Connection Failed!") End If Cdlt
-- Fabrice Meillon Architecte Infrastructure Division Développeurs et Plate-Forme d'Entreprise Microsoft France
"fp" a écrit dans le message de news: co1meu$ihp$
bonjour
merci à Jean-claude, éric et techniland, le forum est réactif c'est bien
dans la continuité de la 1ère question, comment peut-on tester dans le script si l'imprimante est installée sur le poste client avant le lancement des commandes con2prt /c serveurimp_partagée ou rundll32 printui.dll,PrintUIEntry /in /n serveurimp_partagée
merci à tous FP
Bonjour
Avec un script WSH en enumérant les imprimantes local
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 to oPrinters.Count -1
WScript.Echo oPrinters.Item(i)
NextPuis faire un test ...PS on pourrait même tout faire en vbsSet
WshNetwork = CreateObject("WScript.Network")
Set PrinterPath = "\printservDefaultPrinter"
Set PrinterDriver = "Lexmark Optra S 1650"
Set rc = WshNetwork.AddWindowsPrinterConnection(PrinterPath, PrinterDriver)
If Not rc then
WScript.Echo("Printer Connection Failed!")
End If
Cdlt
--
Fabrice Meillon
Architecte Infrastructure
Division Développeurs et Plate-Forme d'Entreprise
Microsoft France
"fp" <fp@anonymous.com> a écrit dans le message de news:
co1meu$ihp$1@s5.feed.news.oleane.net...
bonjour
merci à Jean-claude, éric et techniland, le forum est réactif c'est bien
dans la continuité de la 1ère question, comment peut-on tester dans le
script si l'imprimante est installée sur le poste client avant le
lancement des commandes con2prt /c \serveurimp_partagée ou rundll32
printui.dll,PrintUIEntry /in /n \serveurimp_partagée
Avec un script WSH en enumérant les imprimantes local
Set WshNetwork = WScript.CreateObject("WScript.Network") Set oPrinters = WshNetwork.EnumPrinterConnections For i = 0 to oPrinters.Count -1 WScript.Echo oPrinters.Item(i) NextPuis faire un test ...PS on pourrait même tout faire en vbsSet WshNetwork = CreateObject("WScript.Network") Set PrinterPath = "printservDefaultPrinter" Set PrinterDriver = "Lexmark Optra S 1650" Set rc = WshNetwork.AddWindowsPrinterConnection(PrinterPath, PrinterDriver) If Not rc then WScript.Echo("Printer Connection Failed!") End If Cdlt
-- Fabrice Meillon Architecte Infrastructure Division Développeurs et Plate-Forme d'Entreprise Microsoft France
"fp" a écrit dans le message de news: co1meu$ihp$
bonjour
merci à Jean-claude, éric et techniland, le forum est réactif c'est bien
dans la continuité de la 1ère question, comment peut-on tester dans le script si l'imprimante est installée sur le poste client avant le lancement des commandes con2prt /c serveurimp_partagée ou rundll32 printui.dll,PrintUIEntry /in /n serveurimp_partagée
