Supprimer imprimante réseau

Avatar du membre
christophe
MyEleec d'osmium LV4
MyEleec d'osmium LV4
Messages : 10530
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 13 fois
A été remercié : 27 fois
Contact :

Supprimer imprimante réseau

Message non lu par christophe » mars 21, '11, 09:49

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"
À vaincre sans péril, on triomphe sans gloire.
Image Image
Image Image
Image Image
Image

Avatar du membre
christophe
MyEleec d'osmium LV4
MyEleec d'osmium LV4
Messages : 10530
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 13 fois
A été remercié : 27 fois
Contact :

Re: Supprimer imprimante réseau

Message non lu par christophe » mars 21, '11, 11:07

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"
À vaincre sans péril, on triomphe sans gloire.
Image Image
Image Image
Image Image
Image

Avatar du membre
christophe
MyEleec d'osmium LV4
MyEleec d'osmium LV4
Messages : 10530
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 13 fois
A été remercié : 27 fois
Contact :

Re: Supprimer imprimante réseau

Message non lu par christophe » nov. 29, '11, 09:05

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é 88 fois
À vaincre sans péril, on triomphe sans gloire.
Image Image
Image Image
Image Image
Image

Avatar du membre
darko21
MyEleec de cuivre LV1
MyEleec de cuivre LV1
Messages : 571
Enregistré le : févr. 23, '11, 14:13
Discipline : elec, domotique, enr
Académie : Dijon

Re: Supprimer imprimante réseau

Message non lu par darko21 » nov. 29, '11, 14:00

:ghee: :ghee: Tu n'as pas d'administrateur réseau qui s'occupe de ça ? :ghee: :ghee:
Image
Image

Avatar du membre
christophe
MyEleec d'osmium LV4
MyEleec d'osmium LV4
Messages : 10530
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 13 fois
A été remercié : 27 fois
Contact :

Re: Supprimer imprimante réseau

Message non lu par christophe » nov. 29, '11, 15:42

C'est moi l'admin :)
À vaincre sans péril, on triomphe sans gloire.
Image Image
Image Image
Image Image
Image

Avatar du membre
darko21
MyEleec de cuivre LV1
MyEleec de cuivre LV1
Messages : 571
Enregistré le : févr. 23, '11, 14:13
Discipline : elec, domotique, enr
Académie : Dijon

Re: Supprimer imprimante réseau

Message non lu par darko21 » nov. 29, '11, 18:45

ouf, c'est pour ça ^^
Image
Image

Avatar du membre
christophe
MyEleec d'osmium LV4
MyEleec d'osmium LV4
Messages : 10530
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 13 fois
A été remercié : 27 fois
Contact :

Re: Supprimer imprimante réseau

Message non lu par christophe » janv. 18, '12, 09:10

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.
À vaincre sans péril, on triomphe sans gloire.
Image Image
Image Image
Image Image
Image

Répondre

Retourner vers « Windows 2003 »