FAQ VBScriptConsultez toutes les FAQ

Nombre d'auteurs : 16, nombre de questions : 108, dernière mise à jour : 2 mars 2019 Ajouter une question

Cette FAQ VB Script est le fruit de la collaboration de l'équipe de rédaction et des membres du forum VB.

Aidez-nous à faire vivre cette FAQ en participant au forum Vos contributions VBScript.

Pour toutes questions ou tous problèmes concernant cette FAQ, vous pouvez contacter par MP ThierryAIM ou bbil.

L'équipe de rédaction de Developpez.com vous remercie pour votre participation passée et à venir.

Sommaire →WMI : Windows Management Instrumentation →Imprimantes : classe Win32_Printer (3)

Comment lister les imprimantes installées ?
Comment lister les propriétés des imprimantes installées ?
Comment arrêter l'impression en cours et vider la file d'attente ?

Comment lister les imprimantes installées ?

Lister les imprimantes installées et préciser laquelle est active :

Code vb :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim objWMIService, colInstalledPrinters, objPrinter 
Dim nomPC, Resultat 
  
nomPC = "." 
  
Set objWMIService = GetObject("winmgmts:" & _ 
"{impersonationLevel=impersonate}!\\" & nomPC & "\root\cimv2") 
Set colInstalledPrinters = _ 
    objWMIService.execQuery("Select * from Win32_Printer") 
  
For Each objPrinter In colInstalledPrinters 
    Resultat = Resultat & "Nom: " & objPrinter.Name & " active : " _ 
    & objPrinter.Default & vbLf 
Next 
  
MsgBox Resultat

Mis à jour le 28 février 2007 SilkyRoad

Comment lister les propriétés des imprimantes installées ?

Cet exemple liste toutes les propriétés des imprimantes renvoyées pas la classe Win32_PrinterConfiguration :

Code vb :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Dim objWMIService, colPrinters, objItem 
Dim strComputer 
  
On Error Resume Next 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colPrinters = objWMIService.ExecQuery("Select * from Win32_PrinterConfiguration")', , 48) 
  
For Each objItem In colPrinters 
    Wscript.echo    "Caption: " & objItem.Caption & vbCR & _ 
                    "Collate: " & objItem.Collate & vbCR & _ 
                    "Color: " & objItem.Color & vbCR & _ 
                    "Copies: " & objItem.Copies & vbCR & _ 
                    "Description: " & objItem.Description & vbCR & _ 
                    "DeviceName: " & objItem.DeviceName & vbCR & _ 
                    "DisplayFlags: " & objItem.DisplayFlags & vbCR & _ 
                    "DisplayFrequency: " & objItem.DisplayFrequency & vbCR & _ 
                    "DitherType: " & objItem.DitherType & vbCR & _ 
                    "DriverVersion: " & objItem.DriverVersion & vbCR & _ 
                    "Duplex: " & objItem.Duplex & vbCR & _ 
                    "FormName: " & objItem.FormName & vbCR & _ 
                    "HorizontalResolution: " & objItem.HorizontalResolution & vbCR & _ 
                    "ICMIntent: " & objItem.ICMIntent & vbCR & _ 
                    "ICMMethod: " & objItem.ICMMethod & vbCR & _ 
                    "LogPixels: " & objItem.LogPixels & vbCR & _ 
                    "MediaType: " & objItem.MediaType & vbCR & _ 
                    "Nom: " & objItem.Name & vbCR & _ 
                    "Orientation: " & objItem.Orientation & vbCR & _ 
                    "PaperLength: " & objItem.PaperLength & vbCR & _ 
                    "PaperSize: " & objItem.PaperSize & vbCR & _ 
                    "PaperWidth: " & objItem.PaperWidth & vbCR & _ 
                    "BitsPerPel: " & objItem.BitsPerPel & vbCR & _ 
                    "PelsHeight: " & objItem.PelsHeight & vbCR & _ 
                    "PelsWidth: " & objItem.PelsWidth & vbCR & _ 
                    "PrintQuality: " & objItem.PrintQuality & vbCR & _ 
                    "Scale: " & objItem.Scale & vbCR & _ 
                    "SettingID: " & objItem.SettingID & vbCR & _ 
                    "SpecificationVersion: " & objItem.SpecificationVersion & vbCR & _ 
                    "TTOption: " & objItem.TTOption & vbCR & _ 
                    "VerticalResolution: " & objItem.VerticalResolution & vbCR & _ 
                    "XResolution: " & objItem.XResolution & vbCR & _ 
                    "YResolution: " & objItem.YResolution 
Next

Mis à jour le 28 février 2007 SilkyRoad

Comment arrêter l'impression en cours et vider la file d'attente ?

Code vb :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim objWMIService, colInstalledPrinters, objPrinter 
Dim strComputer 
  
strComputer = "." 
Set objWMIService = _ 
    GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colInstalledPrinters = _ 
    objWMIService.ExecQuery("Select * from Win32_Printer") 
  
For Each objPrinter In colInstalledPrinters 
    objPrinter.CancelAllJobs 
Next 
Wscript.echo "OK" 
  
Set objWMIService = Nothing 
Set colInstalledPrinters = Nothing

Mis à jour le 28 février 2007 SilkyRoad

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça

Titre de la question

Réponse à la question

Liens sous la question

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.