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
Partager