نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

ابتدا مرجع (Reference) System.Management را به پروژه ي خود اضافه مي كنيم. سپس از كد زير استفاده مي كنيم. اين كد تمام نام هاي كاربري را با يك جعبه ي متني نمايش مي دهد:

        Dim compusrs As String
Dim query As New System.Management.SelectQuery("Win32_UserAccount")
Dim searcher As New System.Management.ManagementObjectSearcher(query)
For Each envVar As System.Management.ManagementObject In searcher.Get()
      compusrs += envVar("Name") + Chr(13)
Next
MsgBox(compusrs, 64, My.Computer.Name + "'s Users")

منبع