Page 1 sur 1

Supprimer imprimante réseau

Posté : mars 21, '11, 09:49
par christophe
Moi j'utilise les fichiers *.vbs

Ce script supprime d'abord toutes les imprimantes réseaux installées sur la machine

En dernier le AddWindowsPrinterConnexion connecte l'imprimante, et le SetdefautPrinter la met par défaut.

Il y a aussi dans la section script de ce site, plusieurs exemples pour faire ces manipulations http://www.laboratoire-microsoft.org/scripts/imprimante

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)="\\" 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"

Re: Supprimer imprimante réseau

Posté : mars 21, '11, 11:07
par christophe
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"

Re: Supprimer imprimante réseau

Posté : nov. 29, '11, 09:05
par christophe
Voici un script pour les imprimantes fantomes :

http://rezotice.ac-lyon.fr/faq/index.ph ... artlang=fr

Comment supprimer une imprimante "fantôme" ?
il arrive qu'une imprimante redescende sur les stations alors que dans ESU, elle n'est pas déclarée comme imprimante de la salle. il faut alors utiliser un script pour la supprimer.
Procédure :

1) Télécharger le fichier con2prt.exe
2) Copier le fichier con2prt.exe dans \\srv-scribe\netlogon\scripts
3) Dans\\srv-scribe\netlogon\scripts\groups, créer un fichier DomainUsers.txt
4) Ecrire la ligne suivante : cmd, \\srv-scribe\netlogon\scripts\con2prt.exe /f,HIDDEN
Con2prt.zip
(13.36 Kio) Téléchargé 114 fois

Re: Supprimer imprimante réseau

Posté : nov. 29, '11, 14:00
par darko21
:ghee: :ghee: Tu n'as pas d'administrateur réseau qui s'occupe de ça ? :ghee: :ghee:

Re: Supprimer imprimante réseau

Posté : nov. 29, '11, 15:42
par christophe
C'est moi l'admin :)

Re: Supprimer imprimante réseau

Posté : nov. 29, '11, 18:45
par darko21
ouf, c'est pour ça ^^

Re: Supprimer imprimante réseau

Posté : janv. 18, '12, 09:10
par christophe
J’ai trouvé (enfin) comment se débarrasser des imprimantes fantômes.
Voila la procédure pour installer une imprimante :

1- Créer le script :
Tu crée un fichier .cmd et dedans tu mets :
\\srv2010-02\MSI2010$\Drivers\Imprimantes\con2prt.exe /f
\\srv2010-02\MSI2010$\Drivers\Imprimantes\con2prt.exe /c \\srv2010-02\MEZZA
\\srv2010-02\MSI2010$\Drivers\Imprimantes\con2prt.exe /cd \\srv2010-02\MEZZA

En changeant MEZZA avec le nom de l’imprimante que tu désires installer.

2- Créer la GPO
Tu lances GPMC (les stratégies présent sur le bureau des serveurs)
Tu choisi la salle ou tu veux mettre l’imprimante, puis tu modifie ou crée une stratégie.

En suite, tu vas dans :
==> Configuration utilisateurs
==> Paramètre Windows
==> Scripts (ouverture/fermeture session)
==> Ouverture de sessions
==> tu clics sur parcourir, tu colles ton script .cmd
Tu le valides et hop ca marche.