VB.netを使用してアルファベット順にADグループをリストする方法はありますか？

Question

私はvb.netアプリケーションを作成しました。その中には、ユーザーのコンピュータが所属するアクティブなディレクトリグループがリストされています。 オンラインでやることができない、または見つけられないことは、アルファベット順にADグループのリストを表示する方法です。 アルファベット順に表示する方法を知っている人はいますか？ これまでのコードはここにあります。

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をループすることができます。