Obj WMI

• Question

• 

  

  0

  Connectez-vous pour voter

  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