Wie listet die AD-Gruppe alphabetisch mit VB.net auf?

Question

Ich habe eine vb.net-App erstellt, in der die Active Directory-Gruppen aufgeführt sind, zu denen ein Benutzercomputer gehört. Was ich nicht tun oder finden kann, wie man online macht, ist, wie man diese Liste von AD Gruppen alphabetisch zeigt. Kann jemand sie in alphabetischer Reihenfolge zeigen? Hier ist der Code, den ich bisher habe.

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 

Jede Hilfe würde sehr geschätzt werden!

Vielen Dank im Voraus.

Answer 1

Ich gehe normalerweise zu linq für diese.

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

Dann können Sie geordnete Gruppen statt Gruppen durchlaufen, um zu bekommen, was Sie brauchen.