Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Test présence imprimante + désinstallation

3 réponses
Avatar
Joke
Bonjour à tous,

J'ai besoin de renommer des imprimantes sur mon serveur et donc de
réinstaller celles-ci sur les postes clients.
Je souhaiterais donc tester l'existance des imprimantes sur les postes, si
elles sont présentes les désinstaller et ensuite installer la nouvelle.

Pour ce qui est de la désinstallation et l'installation, pas de problème,
j'ai les bouts de script suivants :

Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection \\serveur\imprimante


Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\serveur\imprimante"
WshNetwork.RemovePrinterConnection PrinterPath, true, true

Mais je ne sais pas faire les tests....

Merci pour votre aide.

Joel

3 réponses

Avatar
Jacques93
Bonjour Joke,
Joke a écrit :
Bonjour à tous,

J'ai besoin de renommer des imprimantes sur mon serveur et donc de
réinstaller celles-ci sur les postes clients.
Je souhaiterais donc tester l'existance des imprimantes sur les postes, si
elles sont présentes les désinstaller et ensuite installer la nouvelle.

Pour ce qui est de la désinstallation et l'installation, pas de problème,
j'ai les bouts de script suivants :

Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection serveurimprimante


Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "serveurimprimante"
WshNetwork.RemovePrinterConnection PrinterPath, true, true

Mais je ne sais pas faire les tests....




Tu as la méthode 'EnumPrinterConnections' qui te permet d'énumérer, et
donc de tester la présence d'une imprimante :

<http://msdn2.microsoft.com/en-us/library/zhds6k80.aspx>

--
Cordialement,

Jacques.
Avatar
jean-marc
"Joke" <joke_mail.com> wrote in message
news:
Bonjour à tous,

J'ai besoin de renommer des imprimantes sur mon serveur et donc de
réinstaller celles-ci sur les postes clients.
Je souhaiterais donc tester l'existance des imprimantes sur les postes, si
elles sont présentes les désinstaller et ensuite installer la nouvelle.

Pour ce qui est de la désinstallation et l'installation, pas de problème,
j'ai les bouts de script suivants :

Dim net
Set net = CreateObject("WScript.Network")
net.AddWindowsPrinterConnection serveurimprimante


Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "serveurimprimante"
WshNetwork.RemovePrinterConnection PrinterPath, true, true

Mais je ne sais pas faire les tests....



Hello,

tu peux simplement énumérer les imprimantes en
utilisant la collection printers:

Dim prt As Printer

For Each prt In Printers
Debug.Print "name = " & prt.DeviceName & " Driver name = " &
prt.DriverName

Next


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
Joke
Merci pour votre aide Jacques93 et jean-marc.
Après avoir bien galèré avec ce language que je ne comprends pas pour
l'instant, j'ai finalement trouvé un petit soft qui fait tout, tout seul
MigrImp.
Je crois que ça va me suffir dans un premier temps où je n'ai justement pas
le temps d'en passer plus.

Joel