fix debug logging and ldap query testing

This commit is contained in:
Jonathan Jenne 2020-10-02 14:50:54 +02:00
parent 97c628dfab
commit 75539c686f

View File

@ -40,6 +40,7 @@ Public Class frmMain
MyLogger.Info("Starting UserManager v" & CurrentVersion)
MyLogger.Info($"Current Username: {Environment.UserName}")
MyLogConfig.Debug = Not MyConfig.Config.LogErrorsOnly
If MyConnectionString = "" Then
frmConfigDatabase.ShowDialog()
@ -1093,12 +1094,14 @@ Public Class frmMain
Dim oActiveDirectory As New ActiveDirectoryInterface(MyLogConfig, ldapPAth)
If oActiveDirectory.Authenticate() Then
MsgBox("Verbindung erfolgreich aufgebaut!", MsgBoxStyle.Information)
MsgBox("Verbindung erfolgreich aufgebaut!", MsgBoxStyle.Information, Text)
MyConfig.Config.AdRootPath = txtADRootNode.Text
MyConfig.Save()
MyLogger.Info($"New ActiveDirectory Path saved: {txtADRootNode.Text}")
Else
MsgBox("Verbindung konnte nicht hergestellt werden. Bitte überprüfen Sie Ihre Eingabe!", MsgBoxStyle.Critical, Text)
End If
End Sub