List Groups Computer Account is a Member of ASP.Net VB

Question

Hi

I notice you have an example code of listing groups Ad computer Accounts are a member of in c#, do you have an example in vb ?

Cheers

Andy

Answer 1

not really related to AD, but in most cases you can use Reflector to translate C# to VB.NET (& vice versa), just create a compilable dll with your code and dissamble it with Reflector in VB.NET code.

Answer 2

You could use PrincipalContext:

Imports System.DirectoryServices.AccountManagement

Module Module1

    Sub Main()
        Using ctx As New PrincipalContext(ContextType.Domain)
            Using p = Principal.FindByIdentity(ctx, "your_account_name")
                If Not p Is Nothing Then
                    Dim groups = p.GetGroups()
                    Using groups
                        For Each group In groups
                            Console.WriteLine("{0} - {1}", group.SamAccountName, group.DisplayName)
                        Next
                    End Using
                End If
            End Using
        End Using
    End Sub
End Module