Zooflow: Add Active Directory User Import

Modules.Interfaces/ActiveDirectoryInterface/ActiveDirectoryGroup.vb

@@ -1,13 +1,13 @@
 Public Class ADGroup
-    Public SAMAccountName As String
-    Public ObjectClass As String
-    Public CN As String
-    Public Description As String
-    Public DistinguishedName As String
-    Public Name As String
-    Public ObjectCategory As String
+    Public Property SAMAccountName As String
+    Public Property ObjectClass As String
+    Public Property CN As String
+    Public Property Description As String
+    Public Property DistinguishedName As String
+    Public Property Name As String
+    Public Property ObjectCategory As String
 
     Public Overrides Function ToString() As String
-        Return $"SAMAccountName={SAMAccountName}"
+        Return SAMAccountName
     End Function
 End Class

Modules.Interfaces/ActiveDirectoryInterface/ActiveDirectoryUser.vb

@@ -1,19 +1,20 @@
 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 Property GUID As Guid
+    Public Property samAccountName As String
+    Public Property SId As SecurityIdentifier
+    Public Property Surname As String
+    Public Property GivenName As String
+    Public Property Middlename As String
+    Public Property Email As String
 
     Public CustomAttributes As List(Of CustomAttribute)
 
     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