Infos systéme avec wmi

Commenter

Contenu du snippet

Voila un ptit bout de code sans prétention mais qui rend bien des services.
Je me suis aperçu que sur ce site il n'y avait que tres peu d'info concernant les requetes WMI.
Je post donc ce code qui vous permettra de récupérer une multitude d'info sur une machine distante tel que des infos sur les disques dur, le processeur, la carte réseau et encore bien d'autre chose
Il faut juste connaitre dans quelle classe WMI récupérer les infos et hop c'est parti
attention: Pour remonter les infos distantes, il faut posséder un compte admin ( logique! )
Pour utiliser se code, passer en parametre la classe WMI a interoger et l'adresse de la machine cible
exemple : wmi("Win32_PerfRawData_Tcpip_NetworkInterface", "192.6.1.7")

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (fcampagne)