Discussion :

[maestro]

Bonjour tout le monde,

j'ai besoin d'un script qui va me changer l'orientation (PORTRAIT ou LANDSCAPE) de l'imprimante par défaut.

Comme je suis pas très fort en VBScript j'ai fait un petit cri à l'aide pour que je puisse continuer dans mon travail.

Voici ce que j'ai pour l'instant mais cela ne fonctionne pas. Merci de complèter ou de me poster l'intégralité d'un tel script.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
	strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_Printer where Default = 'True'")
 
For Each objItem in colItems
	Set printer = objitem
    Wscript.Echo "Computer Name: " & printer.Name
    Wscript.Echo "Computer Orient: " & printer.Orientation
Next

[maestro]

Voilà,

je suis arrivé un peu plus loin, mais je n'arrive toujours pas à changer l'orientation alors si qqn sait comment faire chaque aide est la bienvenue.

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
 
 
	strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * from Win32_Printer where Default = 'True'")
 
For Each objItem in colItems
	Set printer = objitem
	sql_string = "Select * from Win32_PrinterConfiguration where Name = '" & printer.Name & "'"
	Wscript.Echo sql_string
	Set colItems2 = objWMIService.ExecQuery _
    (sql_string)
	For Each objItem2 in colItems2
		Set printer2 = objitem2
	    Wscript.Echo "Computer Name: " & printer2.Name
	    Wscript.Echo "Computer Orient: " & printer2.Orientation
	 Next
Next

[ced600]

Bas là tu affiches les valeurs des propriétés.

Je ne sais pas si elles sont en lecture seul ou non (le site MSDN peut te rensigner là dessus), mais si tu peux changer leurs valeurs, il faudrait faire un truc dans le genre:

Code :

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

printer2.Orientation = "ma valeur pour l'orientation."

[maestro]

Justement je crois selon MSDN que c'est en lecture seule, d'où ma question comment réussir à changer l'orientation de cette imprimante?