Imports System.Security.Principal

Public Class ADUser
    Public GUID As Guid
    Public SId As SecurityIdentifier
    Public samAccountName As String
    Public Surname As String
    Public GivenName As String
    Public Middlename As String
    Public Email As String

    Public Overrides Function Equals(obj As Object) As Boolean
        Return DirectCast(obj, ADUser).samAccountName
    End Function
    Public Overrides Function ToString() As String
        Return samAccountName
    End Function
End Class