Supprimer imprimante réseau

Avatar du membre
christophe
MyEleec de Platine LV2
MyEleec de Platine LV2
Messages : 12457
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 167 fois
A été remercié : 207 fois
Contact :

Supprimer imprimante réseau

Message non lu 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"
À vaincre sans péril, on triomphe sans gloire.
Image Image Image Image Image Image
Avatar du membre
christophe
MyEleec de Platine LV2
MyEleec de Platine LV2
Messages : 12457
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 167 fois
A été remercié : 207 fois
Contact :

Re: Supprimer imprimante réseau

Message non lu 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"
À vaincre sans péril, on triomphe sans gloire.
Image Image Image Image Image Image
Avatar du membre
christophe
MyEleec de Platine LV2
MyEleec de Platine LV2
Messages : 12457
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 167 fois
A été remercié : 207 fois
Contact :

Re: Supprimer imprimante réseau

Message non lu 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é 278 fois
À vaincre sans péril, on triomphe sans gloire.
Image Image Image Image Image Image
Avatar du membre
darko21
MyEleec de nickel LV7
MyEleec de nickel LV7
Messages : 573
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 »

:ghee: :ghee: Tu n'as pas d'administrateur réseau qui s'occupe de ça ? :ghee: :ghee:
Image
Image
Avatar du membre
christophe
MyEleec de Platine LV2
MyEleec de Platine LV2
Messages : 12457
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 167 fois
A été remercié : 207 fois
Contact :

Re: Supprimer imprimante réseau

Message non lu par christophe »

C'est moi l'admin :)
À vaincre sans péril, on triomphe sans gloire.
Image Image Image Image Image Image
Avatar du membre
darko21
MyEleec de nickel LV7
MyEleec de nickel LV7
Messages : 573
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 »

ouf, c'est pour ça ^^
Image
Image
Avatar du membre
christophe
MyEleec de Platine LV2
MyEleec de Platine LV2
Messages : 12457
Enregistré le : mai 14, '07, 10:29
Discipline : Electrotechnique
Académie : Créteil
Qui êtes vous ? : Enseignant
Localisation : Seine et marne
A remercié : 167 fois
A été remercié : 207 fois
Contact :

Re: Supprimer imprimante réseau

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

Retourner vers « Windows 2003 »