Bonjour à toutes et à tous,

Avec ce code, j'aurai aimé créer un fichier texte reprenant les données :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
For Each objItem in colItems
X=objItem.CurrentHorizontalResolution 
Y=objItem.CurrentVerticalResolution 
 
If X<>"" and Y<>"" Then Wscript.Echo X & " x " & Y
Avec un fichier bat il suffisait de faire >> Monfichier.txt à la suite de X et Y.

Merci d'une aide éventuelle.

@+,

cincap