''’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
'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)="\\" Then
WshNetwork.RemovePrinterConnection Printers.Item(i+1) ,true ,true
End if
Next
'Connexion des imprimantes
WshNetwork.AddWindowsPrinterConnection"\\srv-printb\Mon_partage_imprimante"
WshNetwork.SetDefaultPrinter "\\srv-printb\Mon_partage_imprimante"
-----------------------------------------------------------------------------
Il supprime les imprimantes reseaux uniquement
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
Connecte une ou plusieurs imprimante
WshNetwork.AddWindowsPrinterConnection"\\srv-printb\Mon_partage_imprimante"
Et met par defaut une imprimante
WshNetwork.SetDefaultPrinter "\\srv-printb\Mon_partage_imprimante"
Envoyé par Johan.Ottobruc
jottobruc@noeva.com
