Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2666 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  script de désinstallation d'imprimante réseau

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

script de désinstallation d'imprimante réseau

n°2113073
fiji
Posté le 24-11-2011 à 12:21:15  profilanswer
 

Bonjour,
je cherche à désinstaller par script VBS toutes les imprimantes réseau des postes de mon domaine
j'ai essayé celui ci dessous mais s'il n'y a pas d'erreur de compilation, rien ne se passe
merci pour votre aide
_______________________________________________________________________________________________________________________
'Suppression de toutes les imprimantes réseaux'
'Définition des imprimantes de la salle VS et imprimante par défaut'
 
Option Explicit 'Impose la déclaration explicite des variables'
 
Dim ImpNetwork 'Définition de la variable ImpNetwork'
Dim ObjWMIService 'Définition de la variable ObjWMIService'
Dim colInstalledPrinters  'Déifnition de la variable colInstalledPrinters'
On Error Resume Next
 
 
'Début du script Suppression de toutes les imprimantes réseaux'
 
'Rem nom du poste local'
strComputer = "."
 
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )
 
'Rem recherche des imprimantes qui sont en réseau, définies par la variable Network = True'
Set colInstalledPrinters = objWMIService.ExecQuery _  
("Select * From Win32_Printer Where Network = True" )
 
'Rem suppression de toutes les imprimantes réseaux trouvées précédemment'
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_            
Next
'Fin du script suppression de toutes imprimantes réseaux'
_________________________________________________________________________________________________
 

mood
Publicité
Posté le 24-11-2011 à 12:21:15  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  script de désinstallation d'imprimante réseau

 

Sujets relatifs
Base de données en réseauAide pour script d'actualité
Mise à jour automatique de code / scriptAdapter un script jQuery (popin)... pour l'exécuter depuis un flash
Spybot : silent install & silent scan : script boqué par une fênetremappage lecteur réseau
Problème script awk !! =/Script Glovepie pour axe x ?
script d'automatisation d'un tunnel VPNsite pour Acheter un script ?
Plus de sujets relatifs à : script de désinstallation d'imprimante réseau


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR