Much stuff

Modules.Interfaces/ActiveDirectoryInterface/ActiveDirectoryUser.vb

@@ -0,0 +1,18 @@
+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