Rechercher dans ce blog

mercredi 28 juillet 2010

VBSRIPT – CONNEXIONS IMPRIMANTES

''’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
'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

Aucun commentaire: