VBScript pour changer orientation de l'imprimante par défaut

Version imprimable

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:

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

Avancement

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:

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

06/05/2009, 09h22
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:

printer2.Orientation = "ma valeur pour l'orientation."
06/05/2009, 10h19
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?