bonjour,

j'ai 250 imprimantes dans mon réseau et plus de la moitié imprime au format Letter. J'e n'ai pas envie de passer sur les 250 impriamnte et de changer manuellement celles-ci en A4.

J'aimerais savoir si il y a un moyen rapide de le faire en VBScript.

Voici déjà le script que j'ai fait :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
44
45
46
 
'===============================
'Déclaration des variables
 
Option Explicit
Dim objWMIService	'connexion a WMI
Dim colImp, colImpr		'collection des imprimantes
Dim objImp, objImpr		'objet imprimantes
 
 
'=================================
'=================================
'Main body
 
Set objWMIService = GetObject("winmgmts:\\")
Set colImp = objWMIService.ExecQuery ("Select Caption, PaperSize from Win32_PrinterConfiguration")
 
WScript.Echo "Imprimantes intallées"
 
For Each objImp in colImp
	WScript.Echo "	Nom: " & objImp.Name
	call TypePapier(objImp.PaperSize)
	WScript.Echo "	"
Next
 
 
 
'=================================
'=================================
'PROCEDURES
 
Sub TypePapier(taille)
	Select case taille
		case 1
			WScript.Echo "	Taille: A4"
		case 9
			WScript.Echo "	Taille: Letter"
		case else
			WScript.Echo "	Taille: Autre taille"
	End Select
End SUb
 
'================================
'FONCTION
 
'================================

J'aimerais en fait savoir si il y a un moyen pour changer la valeur de PaperSize et de le passer en A4.

Cdt,
Forbanm