ManagementObject

Bonsoir Alan,

Je vous ai fais un bout de code qui j'espère répondra à vos attentes.
Si vous avez besoin de plus d'informations, n'hésitez pas à me le demander
je serai ravi de pouvoir vous aider.

J'utilise arbitrairement la classe Win32_OperatingSystem.


Imports System.Management

####################################################
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim MaClasse As ManagementClass = New
ManagementClass("Win32_OperatingSystem")

Dim MaPropriete As PropertyDataCollection = MaClasse.Properties
For Each p As PropertyData In MaPropriete

ListBox1.Items.Add("--------------------------------------------------------------")
ListBox1.Items.Add("NOM : " + p.Name)

ListBox1.Items.Add("TYPE : " + CType(p.Type, String))
ListBox1.Items.Add("QUALIFIERS: ")
For Each MonQualifier As QualifierData In p.Qualifiers
ListBox1.Items.Add(" " + MonQualifier.Name)
Next
ListBox1.Items.Add("VALUE: ")
For Each MonManagementObject As ManagementObject In
MaClasse.GetInstances()
ListBox1.Items.Add(" " +
CType(MonManagementObject.Properties(p.Name).Value, String))
Next
Next
End Sub
###################################################

Bonne soirée,

--
Cordialement,

Mathieu Francesch
epsilon@neuf.fr


"alan" a écrit :

Bonjour. En VB 2005, je cherche a recuperer des informations via le WMI. Le
problème, c'est que je ne connais pas les "propertyname" a utiliser avec cet
objet... En gros, ce queje souhaiterait faire, c'est une boucle sur mes
managementObject, afin de les afficher, ainsi que les valeurs.
Merci par avance