Vb.net VB获取本地用户列表

Vb.net VB获取本地用户列表,vb.net,list,local,Vb.net,List,Local,我需要一种获取所有本地用户的方法。如果我只是转到users文件夹,我会找到本地用户和域用户。是否有办法只获取本地用户 我想要的是名称。您需要添加对系统的引用。DirectoryServices才能使用此功能 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim Users As List(Of String) = GetLocalUsers("localhost")

我需要一种获取所有本地用户的方法。如果我只是转到users文件夹,我会找到本地用户和域用户。是否有办法只获取本地用户


我想要的是名称。

您需要添加对
系统的引用。DirectoryServices
才能使用此功能

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Users As List(Of String) = GetLocalUsers("localhost")

    For Each User As String In Users
        MessageBox.Show(User)
    Next
End Sub

Private Function GetLocalUsers(ByVal MachineName As String) As List(Of String)
    Dim WinNt As New DirectoryServices.DirectoryEntry("WinNT://" & MachineName)
    Dim UserList As New List(Of String)

    For Each User As DirectoryServices.DirectoryEntry In WinNt.Children
        If User.SchemaClassName = "User" Then
            UserList.Add(User.Name)
        End If
    Next

    Return UserList
End Function

我什么都没吃。我知道我可以访问“C:\Users”并获得所有用户的名称。但我只需要本地机器中的,而不需要域中的。我需要知道一种方法来做到这一点,我想也许与regedit?谢谢你,我会尝试它,当我可以:)很多apreciated@Plutonix是的,我知道,但我不知道这是否解决了我的问题。当我能够测试它时,如果它解决了问题,我会点击复选标记:D:DIt说它没有声明,我应该使用什么导入?它在我的答案中。。您需要添加引用。。。导入system.directoryservices…警告1导入“system.Directory.Services”中指定的命名空间或类型不包含任何公共成员或找不到。确保已定义命名空间或类型,并且至少包含一个公共成员。确保导入的元素名称不使用任何别名。错误消息为什么显示这个