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