Discussion :

[infodour]

Bonjour,
je cherche un vbs me permettant de récupérer les information de l'écran.
Comme Windows est capable de les retrouver je pense que ce doit être possible, ça me simplifierai pour remplir une base m'évitant de devoir passer sur chaque PC de ma société. (en l'executant via l'AD).
je n'ai pas trouver sur Google, et dans le forum j'ai rechercher info ecran et n'ai pas trouvé mon bonheur.
Je précise que mes connaissances en VBS sont faible.

Merci

[omen999]

bonjour,

un exemple:
http://www.developpez.net/forums/d35...tion-total-pc/

à la fin du script, voir la classe Win32_DesktopMonitor

[ced600]

En fait je dirais plutôt la classe Win32_Win32_DesktopMonitor

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
Set colEcrans =  objWMIService.ExecQuery _
    ("Select * from Win32_Win32_DesktopMonitor")
report = report & "******************************************" & vbCrLf
report = report & "Écran(s)" & vbCrLf & "******************************************" & vbCrLf
 
For Each objEcran in colEcrans
 
        report = report & "- Nom de l'écran: " & objEcran.Name & vbCrLf
        report = report & "- Type d'écran: " & objEcran.MonitorType & vbCrLf
        report = report & "- Nom du fabricant: " & objEcran.MonitorManufacturer & vbCrLf
        report = report & "- Hauteur: " & objEcran.ScreenHeight & vbCrLf
        report = report & "- Largeur: " & objEcran.ScreenWeight & vbCrLf
        report = report & vbCrLf
 
Next

Bon après vérification, c'est Win32_DesktopMonitor, il y une erreur dnas le script que l'on avait pas vu