INFOS SYSTÉME AVEC WMI

 Sub wmi(ByVal classe As String, ByVal machine_cible As String)
        Dim connexionOption As ConnectionOptions = New ConnectionOptions
        Dim monManagementObject As ManagementObject
        Dim monManagementScope As System.Management.ManagementScope
        Dim objetRequete As System.Management.ObjectQuery
        Dim collectionResultat As ManagementObjectCollection
        Dim maRequete As ManagementObjectSearcher
        'parametre de connexion
        connexionOption.Username = "nom de l'utilisateur"
        connexionOption.Password = "pass de l'utilisateur"

        Try
            monManagementScope = New System.Management.ManagementScope("\\" + machine_cible + "\root\cimv2", connexionOption)
            objetRequete = New System.Management.ObjectQuery("SELECT * FROM " & classe)
            maRequete = New ManagementObjectSearcher(monManagementScope, objetRequete)
            collectionResultat = maRequete.Get
            Dim element As System.Management.PropertyData

            For Each monManagementObject In collectionResultat
                For Each element In monManagementObject.Properties
                    'chaque valeur non null de la classe WMI sera affiché sur la page
                    If Not element.Value Is Nothing Then
                        'on lit chaque élément de la classe
                        Response.Write(element.Name.ToString & ": ")
                        ' et on affiche également la valeur qu'il contient 
                        Response.Write(element.Value.ToString & "<br>")
                    End If
                Next
            Next
        Catch ex As Exception
            Response.Write("<font color='red'>ERREUR: </font>" & ex.Message)
        End Try
    End Sub