如何在VB.NET中获得当前登录到Windows7计算机的所有用户的列表？

Imports System.DirectoryServices

Dim entry As New DirectoryEntry("WinNT://localhost")

Dim userDirectory As DirectoryEntries = entry.Children
Dim users As DirectoryEntry() = userDirectory.Cast(Of DirectoryEntry)().Where(Function(d) d.SchemaClassName = "User").ToArray()

For Each user As DirectoryEntry In users
    Dim username As String = user.Name
    Console.WriteLine(username)
Next