Discussion :

[dimitrov6]

Bonjour,

Voila, j'y connais pas grand chose en développement, je suis plutot administrateur réseau, je vais demande quelquechose de peut etre bete pour vous, mais qui m'aiderai grandement.

Voila, j'utilise actuellement un script pour mapper des imprimantes réseau.

Cela contient en gros une fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wshNetwork.removewindowsPrinterConnection servprint & "imprimante1"

Ou servprint est déclaré avec le nom de mon serveur d'impression ( "\\serveurdimpression\" ).

Alors voila ma question, je voudrais supprimmer toutes les imprimantes d'un ancien serveur d'impression mappé sur un poste.

Pour ceci, j'ai pensé faire quelquechose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wshNetwork.removewindowsPrinterConnection servprint & *

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wshNetwork.removewindowsPrinterConnection servprint & "*"

Malheureusement, cela ne marche pas, l'étoile ne correspond pas au joker en vbs.

Connaissez vous l'équivalent ou qqch qui me permette de contourner mon probleme?

Merci de votre aide.
Cordialement.

[omen999]

bonjour,
la méthode removewindowsPrinterConnection ne supporte pas les jokers dans les noms d'imprimantes
pour extraire toutes les imprimantes et les effacer individuellement, on peut utiliser la collection EnumPrinterConnections
ci-dessous un exemple de code trouvé dans la doc dont le lien est dans la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Set WshNetwork = WScript.CreateObject("WScript.Network")
         Set oDrives = WshNetwork.EnumNetworkDrives
         Set oPrinters = WshNetwork.EnumPrinterConnections
         WScript.Echo "Mappages de lecteurs réseau :"
         For i = 0 to oDrives.Count - 1 Step 2
            WScript.Echo "Lecteur " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
         Next
         WScript.Echo 
         WScript.Echo "Mappages d'imprimantes réseau :"
         For i = 0 to oPrinters.Count - 1 Step 2
            WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
         Next