SUPERCAT.DEV

Fare un'applicazione console e aggiungere come riferimento: System.DirectoryServices.AccountManagement

Imports System.DirectoryServices.AccountManagement

Module Module1

    Sub Main()
        Dim userName = Environment.UserName

        ' Crea il domain context
        Dim DC = New PrincipalContext(ContextType.Domain)

        ' Cerca l'utente corrente
        Dim utente = UserPrincipal.FindByIdentity(DC, userName)

        ' Gruppi dell'utente
        Dim groups = utente.GetGroups()

        ' Dettagli utente
        Console.WriteLine("--- Utente ---")
        Dim firstName = utente.GivenName
        Dim lastName = utente.Surname

        Console.WriteLine($"{"Nome:",8} {firstName}")
        Console.WriteLine($"{"Cognome:",8} {lastName}")

        ' Lista gruppi
        Console.WriteLine("--- Gruppi ---")
        For Each g In groups
            Console.WriteLine($"{g.Name,-20} ({g.Description})")
        Next

        Console.Write($"{Environment.NewLine}Premi invio per continuare... ")
        Console.ReadLine()
    End Sub

End Module