fix debug logging and ldap query testing
This commit is contained in:
parent
97c628dfab
commit
75539c686f
@ -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
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user