locked
Comment lire les informations concernant un composant hardware à travers le WMI RRS feed

  • Discussion générale

  • Premièrement, ajoutez System.Management.dll a votre projet et importez l’espace de noms System.Management.

     

    Exemple de code : récupérer les informations du disque dur, carte mère et CPU.

    Conditions préalables : créez un formulaire Form1 ; ajoutez les composants Button1, Button2, Button2 et ListBox1 au formulaire.

     

    Imports System.Management
    Public Class Form1
        'recuperer les informations concernant le disque dur
        Private Sub Button1_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles Button1.Click
            ' recuperer les informations sur le modele et le type
            Dim searcher As ManagementObjectSearcher = _
                            New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
            For Each wmi_HD As ManagementObject In searcher.Get()
                ListBox1.Items.Add("Model:" & vbTab & wmi_HD("Model").ToString())
                ListBox1.Items.Add("Type:" & vbTab & wmi_HD("InterfaceType").ToString())
            Next wmi_HD
     
            ' recuperer l'information sur le numero de serie
            searcher = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
            For Each wmi_HD As ManagementObject In searcher.Get()
                If wmi_HD("SerialNumber") Is Nothing Then
                    ListBox1.Items.Add("Serial No:" & vbTab & "None")
                Else
                    ListBox1.Items.Add("Serial No:" & vbTab & wmi_HD("SerialNumber").ToString())
                End If
            Next wmi_HD
        End Sub
     
        'recuperer les informations concernant la carte mere
        Private Sub Button2_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles Button2.Click
            Dim searcher As ManagementObjectSearcher = _
                            New ManagementObjectSearcher("select * from Win32_BaseBoard")
            For Each oReturn As ManagementObject In searcher.Get()
                ListBox1.Items.Add( _
                 "MortherBoard Serial No." & Constants.vbTab & ": " & oReturn("SerialNumber").ToString)
            Next oReturn
        End Sub
     
        'recuperer les informations concernant le CPU
        Private Sub Button3_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles Button3.Click
            Dim searcher As ManagementObjectSearcher = _
                            New ManagementObjectSearcher("select * from Win32_Processor")
            For Each oReturn As ManagementObject In searcher.Get()
                ListBox1.Items.Add("CPU ID" & Constants.vbTab & ": " & oReturn("ProcessorId").ToString)
            Next oReturn
        End Sub
    End Class

     

     

    Vous pouvez utiliser aussi l’outil WMI Code Creator

     

    L'outil WMI Code Creator vous permet de générer du code VBScript, c# et VB .NET qui utilise WMI pour effectuer une tâche de gestion telles que l'interrogation des données de gestion, de l'exécution d'une méthode d'une classe de WMI ou de recevoir des notifications d'événements à l'aide de WMI.

     

     

    Pour plusieurs questions sur Visual Basic .NET, visitez Foire aux Questions – Visual Basic .NET FAQ et didacticiels


    Alex Petrescu - MSFT
    lundi 8 février 2010 10:30