AppStd/UserManager
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix debug logging and ldap query testing

Browse Source
This commit is contained in:
Jonathan Jenne 2020-10-02 14:50:54 +02:00
parent 97c628dfab
commit 75539c686f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
DDUserManager/DDUserManager/frmMain.vb
View File

@ -40,6 +40,7 @@ Public Class frmMain
MyLogger.Info("Starting UserManager v" & CurrentVersion) MyLogger.Info("Starting UserManager v" & CurrentVersion)
MyLogger.Info($"Current Username: {Environment.UserName}") MyLogger.Info($"Current Username: {Environment.UserName}")
MyLogConfig.Debug = Not MyConfig.Config.LogErrorsOnly
If MyConnectionString = "" Then If MyConnectionString = "" Then
frmConfigDatabase.ShowDialog() frmConfigDatabase.ShowDialog()
@ -1093,12 +1094,14 @@ Public Class frmMain
Dim oActiveDirectory As New ActiveDirectoryInterface(MyLogConfig, ldapPAth) Dim oActiveDirectory As New ActiveDirectoryInterface(MyLogConfig, ldapPAth)
If oActiveDirectory.Authenticate() Then If oActiveDirectory.Authenticate() Then
MsgBox("Verbindung erfolgreich aufgebaut!", MsgBoxStyle.Information) MsgBox("Verbindung erfolgreich aufgebaut!", MsgBoxStyle.Information, Text)
MyConfig.Config.AdRootPath = txtADRootNode.Text MyConfig.Config.AdRootPath = txtADRootNode.Text
MyConfig.Save() MyConfig.Save()
MyLogger.Info($"New ActiveDirectory Path saved: {txtADRootNode.Text}") 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 If
End Sub End Sub