Discussion :

[forbanm]

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

[ced600]

Un lien qui pourrait t'aider :
http://msdn.microsoft.com/library/de...32_printer.asp

[forbanm]

merchi pour le lien

mais en fait la propriétée "PaperSizeSupported" et "PaperTypesAvailable" m'informe uniquement sur ce qui est possible d'avoir et non pas sur le format actuel.

Il y a dans win32_PrinterConfiguration la propriétée PaperSize qui donne la taille qui est affecté mais je ne sais pas comment modifier cette valeur.

N'y a t'il pas une commande du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set PaperSize= ma nouvelle valeur 

?? (cette ligne ne fonctionne pas !!)

[ced600]

Objet.argument = valeur
Essaye cela, mais ce n'est possible que si l'argument est en acces lecture/ecriture (read/write), si tu cliques sur chacun des arguments de l'objets sur la page que je t'ai donné, tu devrais voir apparaître une bulle jaune où il est spécifié des détail sur l'argument et notement son type d'accés.

[omen999]

ici: http://thelazyadmin.net/index.php?/a...admin.dll.html

[forbanm]

En fait j'ai trouvé via le registre.

Il me faut passer par HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Printers\<Nom de l'imprimante>\PrinterDriverData\TrayFormTable

Mais le problème est que je ne vois pas et ne sais pas comment lire/modifier une clé de type REG_MULTI_SZ

[ced600]

Tu n'as pas assez exploité le lien que je t'ai passé. Regarde ici :
http://msdn.microsoft.com/library/de...__registry.asp

[forbanm]

Trouvé et corrigé

voici le code

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
'===============================
'Déclaration des variables
 
Option Explicit
Dim objWMIService	'connexion a WMI
Dim colImp, colImpr		'collection des imprimantes
Dim objImp, objImpr		'objet imprimantes
Dim WSHShell, strRegKey
Dim valeur, i
 
'=================================
'=================================
'Main body
 
Set objWMIService = GetObject("winmgmts:\\")
Set colImp = objWMIService.ExecQuery ("Select  Caption, PaperSize from Win32_PrinterConfiguration")
Set WSHShell = WScript.CreateObject("WScript.Shell") 
strRegKey="HKLM\SYSTEM\CurrentControlSet\Control\Print\Printers\" 
 
 
WScript.Echo "====== Imprimantes intallées ==== "
 
'Pour chaque impriamnte 
For Each objImp in colImp
	WScript.Echo "	Nom: " & objImp.Name	'affiche le nom de l'imprimante
	valeur = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Print\Printers\" & objImp.Name & "\PrinterDriverData\TrayFormTable") 'on affecte à valeur la clé de registre
 
For i = 1 To UBound(valeur) step 3
	if valeur(i) = "Letter" then
		WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Print\Printers\" & objImp.Name & "\PrinterDriverData\TrayFormTable","A4"
		WScript.echo "		Value " & i+1 & " à changer: " & valeur(i)
	Else
		WScript.echo "		Value " & i+1 & " is: " & valeur(i)
	End if
 
Next
 
 
	'WScript.Echo "	La valeur: " &  valeur
	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
 
'================================