locked
Obj WMI RRS feed

  • Question

  • Bonjour à toutes et à tous, j'utilise le code suivant afin de lister les periphériques installés sur une machine locale (dont le nom est à renseigner à la place de  ".") :


    On Error Resume Next

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colItems = objWMIService.ExecQuery("Select * from Win32_OnBoardDevice")

    Wscript.Echo "TEST!!!"
    For Each objItem in colItems
        Wscript.Echo "Description: " & objItem.Description
        Wscript.Echo "Device Type: " & objItem.DeviceType
        Wscript.Echo "Model: " & objItem.Model
        Wscript.Echo "Name: " & objItem.Name
        Wscript.Echo "Tag: " & objItem.Tag
        Wscript.Echo "Version: " & objItem.Version
        Wscript.Echo
    Next



    Mon problèm est que le message TEST s'affiche, mais la fonction objWMIservice ne retourne rien.
    Est ce que quelqu'un voit d'ou peut venir mon problème?
    J'ai déjà fait un test en mode sans échec, sans antivirus et sans firewall mais le résultat est le même.
    D'avance merci.
    lundi 28 avril 2008 12:28

Réponses

  • Bonjour,

     

    peut-être n'as-tu aucun périphérique de ce type sur cette machine !!! Tout simplement.

     

    Sur mon portable (bourré de composants), il n'y a qu'un seul périphérique de type "OnBoard" (ADI).

     

    Ajoute ceci pour vérifier  (le nombre d'élément dans ColItems):


    Wscript.Echo "TEST!!!",colItems.count

     

    Cordialement,

    mardi 29 avril 2008 12:53