Zooflow: Add Active Directory User Import

Modules.Interfaces/ActiveDirectoryInterface.vb

@@ -123,6 +123,9 @@ Public Class ActiveDirectoryInterface
         Return ListGroups(_rootNode, Query)
     End Function
 
+    Public Async Function ListGroupsAsync(Optional Query As String = DEFAULT_GROUP_FILTER) As Task(Of List(Of ADGroup))
+        Return Await Task.Run(Function() ListGroups(Query))
+    End Function
 
     Public Function ListGroups(RootNode As DirectoryEntry, Optional Query As String = DEFAULT_GROUP_FILTER) As List(Of ADGroup)
         Dim oGroups As New List(Of ADGroup)
@@ -148,6 +151,10 @@ Public Class ActiveDirectoryInterface
         Return ListUsers(GroupName, New List(Of AttributeMapping), Filter)
     End Function
 
+    Public Async Function ListUsersAsync(GroupName As String, Optional Filter As String = DEFAULT_USER_FILTER) As Task(Of List(Of ADUser))
+        Return Await Task.Run(Function() ListUsers(GroupName, Filter))
+    End Function
+
     Public Function ListUsers(GroupName As String, AttributeMappings As List(Of AttributeMapping), Optional Filter As String = DEFAULT_USER_FILTER) As List(Of ADUser)
         Dim oUsers As New List(Of ADUser)
 

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