diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb index 6ffd9a0..7d17043 100644 --- a/DDUserManager/DDUserManager/frmMain.vb +++ b/DDUserManager/DDUserManager/frmMain.vb @@ -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