ALL: Update NLog

ConfigCreator/frmStart.vb

@@ -1,5 +1,8 @@
 Imports System.IO
 Imports System.Xml.Serialization
+Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Interfaces
 
 Public Class frmStart
     Private Const ZUGFERD_SERVICE = "ZUGFERD_SERVICE"
@@ -9,10 +12,24 @@ Public Class frmStart
         ZUGFERD_SERVICE
     }
 
+    Private LogConfig As LogConfig
+    Private Config As ConfigManager(Of Config)
+    Private ActiveDir As ActiveDirectoryInterface
+
 
     Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         ComboBoxEdit1.Properties.Items.Clear()
         ComboBoxEdit1.Properties.Items.AddRange(Configs)
+
+        LogConfig = New LogConfig(LogConfig.PathType.Temp, Nothing, Nothing, "Digital Data", "Monorepo Utils")
+        Config = New ConfigManager(Of Config)(LogConfig, Application.CommonAppDataPath)
+        ActiveDir = New ActiveDirectoryInterface(LogConfig)
+
+        txxTemplate.Text = Config.Config.EmailTemplate.BaseHtml
+        txtBannerUrl.Text = Config.Config.EmailTemplate.BannerUrl
+        txtTrackingUrl.Text = Config.Config.EmailTemplate.TrackingLink
+        txtOutputPath.Text = Config.Config.EmailTemplate.OutputPath
+        txtADGroup.Text = Config.Config.EmailTemplate.ActiveDirectoryGroup
     End Sub
 
     Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
@@ -39,4 +56,18 @@ Public Class frmStart
 
         Return System.Text.Encoding.UTF8.GetString(oBytes)
     End Function
+
+    Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
+        Config.Config.EmailTemplate.BaseHtml = txxTemplate.Text
+        Config.Config.EmailTemplate.BannerUrl = txtBannerUrl.Text
+        Config.Config.EmailTemplate.TrackingLink = txtTrackingUrl.Text
+        Config.Config.EmailTemplate.OutputPath = txtOutputPath.Text
+        Config.Config.EmailTemplate.ActiveDirectoryGroup = txtADGroup.Text
+        Config.Save()
+    End Sub
+
+    Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click
+        Dim oUsers = ActiveDir.ListUsers(Config.Config.EmailTemplate.ActiveDirectoryGroup)
+        MsgBox(oUsers.Count & " found.", MsgBoxStyle.Information, "Yo")
+    End Sub
 End Class