récuperer les information de l'écran d'un PC

Version imprimable

03/09/2008, 17h11
infodour

récuperer les information de l'écran d'un PC

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
03/09/2008, 18h42
omen999

bonjour,

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

à la fin du script, voir la classe Win32_DesktopMonitor

En fait je dirais plutôt la classe Win32_Win32_DesktopMonitor ;)

Citation:

Code:

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