IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Récupérer la résolution de l'écran en VBS


Sujet :

VBScript

  1. #1
    Nouveau Candidat au Club
    Inscrit en
    Septembre 2009
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Septembre 2009
    Messages : 1
    Points : 1
    Points
    1
    Par défaut Récupérer la résolution de l'écran en VBS
    Bonjour tout le monde,

    Voilà je cherche un script qui me permettrait de récupérer la résolution de l'écran.
    je dois mettre un fond d'écran sur tous les postes de ma boite mais il y a plusieurs résolutions possibles...

    Des idées ?

    Merci d'avance !!!

  2. #2
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 297
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 297
    Points : 3 551
    Points
    3 551
    Par défaut
    bonjour pods2009

    un peu de lecture: http://www.microsoft.com/technet/scr...5/hey0721.mspx

    voir les propriétés PelsWidth & PelsHeight
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  3. #3
    Membre averti
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 57

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Points : 341
    Points
    341
    Par défaut
    Salut,

    tu peux essayer ca :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
    For Each objItem in colItems
        WScript.Echo "Horizontal = "& objItem.ScreenWidth
        WScript.Echo "Vertical = " & objItem.ScreenHeight
    Next
    A++
    Plus tu pédales moins vite, moins t'avances plus vite.

Discussions similaires

  1. Réponses: 6
    Dernier message: 31/03/2011, 02h23
  2. Réponses: 1
    Dernier message: 28/05/2009, 14h45
  3. récupérer résolution de l'écran
    Par keks42 dans le forum VBA Access
    Réponses: 3
    Dernier message: 03/09/2008, 09h53
  4. Récupérer la résolution de l'écran
    Par JPJHT dans le forum VBA Access
    Réponses: 3
    Dernier message: 25/10/2007, 15h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo