Etant donné que j'avais des imprimantes récalcitrantes, j'ai modifié le script en :
Code : Tout sélectionner
'''''''''''''''''''''''''''''''''''''''''''''''''
'SCRIPT CONNEXION IMPRIMANTE'
'''''''''''''''''''''''''''''''''''''''''''''''''
ON ERROR RESUME NEXT
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections
'suppresssion des imprimantes réseaux
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="a" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="b" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="c" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="d" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="e" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="f" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="g" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="h" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="i" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="j" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="k" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="l" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="m" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="n" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="o" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="*" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="p" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="q" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="r" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="s" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="t" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="u" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="v" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="w" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="x" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="y" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="z" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
For i = 0 to Printers.Count - 1 Step 2
If Left (Printers.Item(i+1),2)="\\" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
'Connexion des imprimantes
WshNetwork.AddWindowsPrinterConnection"\\srv2010-02\Mezza"
WshNetwork.SetDefaultPrinter "\\srv2010-02\Mezza"