Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
16 avril 2009 4 16 /04 /avril /2009 15:54

Vous devez tout d’abord ajouter une référence à l’espace de noms System.Management à votre application puis faire un Import System.Management au début de votre code.

Les objets de cet espace de nom vont nous permettre d’utiliser le Windows Management Instrumentation (WMI).

 

Dans l’exemple suivant, nous allons remplir une DataTable avec le nom des comptes utilisateurs.

 

Code :

        Dim _dtUsers as New DataTable("Users")
        Dim col As New DataColumn("Name", GetType(String))
        col.MaxLength = 500

        _dtUsers.Columns.Add(col)

        Dim query As New SelectQuery("Win32_UserAccount")
        Dim searcher As New ManagementObjectSearcher(query)

        Dim newRow As DataRow

        For Each envVar As ManagementObject In searcher.Get()
            newRow = _dtUsers.NewRow

            newRow("Name") = envVar("Name")
            _dtUsers.Rows.Add(newRow)
        Next

 

Vous trouverez la liste des propriétés de Win32_UserAccount içi.

Partager cet article

Repost 0
Published by Cyril - dans VB.NET
commenter cet article

commentaires