Bonjour à tous,

Je suis entrain de développer un petit script me permettant de lister toutes les fenêtres ouvertes et d'en extraire des infos comme le nom ou encore la largeur.

Le problème c'est que le script que si Word est installé.

monScript.vbs :

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
Dim console
Set console = WScript.StdOut
Dim myString
myString = ""
 
Set Word = CreateObject("Word.Application")
Set Tasks = Word.Tasks
Set colTasks = Word.Tasks
For Each Task in Tasks
    If Task.Visible Then 
        If colTasks.Exists(Task.Name) Then
            myString = myString & "@@##@@" & colTasks(Task.Name).Name & ","& colTasks(Task.Name).Width
        End If  
   End If
Next
Word.Quit
console.WriteLine myString
Est il possible de faire un script me renvoyant le même résultat, mais fonctionnant sur toutes les machines Windows nativement?

Je vous remercie pour votre aide.