如何使用VB.net按字母顺序列出广告组？

Question

我创建了一个vb.net应用程序，其中列出了用户计算机所属的活动目录组。 我无法在线完成或无法找到方法是如何按字母顺序显示该广告组列表。 有谁知道如何按字母顺序显示它们？ 这是我到目前为止的代码。

Public Shared Function WorkstationADGroups(ByVal PCName As String) As String

    ' Returns list of AD Groups the comptuer is a member of
    Try
        Dim x As Integer = 1
        Dim result As String = Nothing
        Using ctx As New PrincipalContext(ContextType.Domain)
            Using p = Principal.FindByIdentity(ctx, PCName)
                If Not p Is Nothing Then
                    Dim groups = p.GetGroups()
                    Using groups
                        For Each group In groups
                            result = result & "</BR>" & x & ".     --     " & group.SamAccountName
                            x = x + 1
                        Next
                    End Using
                End If
            End Using
        End Using
        Return result
    Catch ex As Exception
        Return ex.Message
    End Try

End Function

任何帮助将不胜感激！

提前致谢。

Answer 1

我通常为此去linq。

Dim orderedGroups = (From g In Groups Order By g.SamAccountName)

然后，您可以遍历orderedGroups而不是Groups以获取所需的内容。