SUPINFO International University

SUPINFO Institute of Information Technology
Laboratoire Microsoft
  Laboratoire Microsoft |  Blog  |  Forum |  FaqXP |  CertifExpress 




Lister toutes les imprimantes

Accueil > Script > imprimante > Lister toutes les imprimantes

Lister toutes les imprimantes

Par Joachim GOMARD, LABORATOIRE SUPINFO DES TECHNOLOGIES MICROSOFT
Publiée le 27/10/2004 vers 13h.

Description :
Ce script VBS permet de lister les différentes imprimantes.

Script :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from Win32_Printer")

For Each objPrinter in colInstalledPrinters
Wscript.Echo "Name: " & objPrinter.Name
Wscript.Echo "Location: " & objPrinter.Location
Wscript.Echo "Default: " & objPrinter.Default
Next

Proposer un script

Notre avis :

Votre avis :

Réactions :
0

Votants :
8

Visites :
16955

1
 2
 3
 4
 5

Script Précédent :

Renommer une imprimante

Script Suivant :

Modifier la priorité d'une imprimante

Script Précédent(e)(s)

27/10/2004 - Renommer une imprimante

27/10/2004 - Supprimer une imprimante

26/10/2004 - Démarrer un Site WEB

26/10/2004 - Mettre en pause un site WEB

26/10/2004 - Arrêter un site WEB

Les Script Suivant(e)(s)

27/10/2004 - Modifier la priorité d'une imprimante

27/10/2004 - Purger une file d'attente

27/10/2004 - Mettre en pause une imprimante

27/10/2004 - Lister les imprimantes publiées dans AD

27/10/2004 - Créer une clé de registre



Retrouvez ci-dessous les autres sections du Laboratoire Microsoft

Holidays

Easters Eggs

Drôle d''aide sous Word?

Liens cachés dans PHP

Une référence au Bush connu ?

Vista : un fond d'écran animé caché

Un bien curieux Notepad...

Tous les easters eggs Proposer un easter egg