MS
This commit is contained in:
@@ -36,7 +36,7 @@ Public Class frmConfiguration_Basic
|
||||
PWplainText = wrapper.DecryptData(dt.Rows(0).Item("AD_USER_PW"))
|
||||
Me.txtPW.Text = PWplainText
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("- the Password '" & dt.Rows(0).Item("AD_USER_PW") & "' could not be decrypted", False)
|
||||
clsLogger.Add("- the Password '" & dt.Rows(0).Item("AD_USER_PW") & "' could not be decrypted", False)
|
||||
Me.txtPW.Text = ""
|
||||
End Try
|
||||
Me.txtServername.Text = dt.Rows(0).Item("AD_SERVER")
|
||||
@@ -143,7 +143,7 @@ Public Class frmConfiguration_Basic
|
||||
|
||||
Private Sub btnTest_Anmeldung_Click(sender As Object, e As EventArgs) Handles btnTest_Anmeldung.Click
|
||||
Try
|
||||
DD_Rights.ClassLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
|
||||
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
|
||||
Dim session = DD_Rights.ClassRights.GetWMSessionAsUser(Me.txtDomäne.Text, Me.txtServername.Text, Me.txtUser.Text, Me.txtPW.Text)
|
||||
If Not IsNothing(session) Then
|
||||
MsgBox("The persionalized connection to windream was created successfully!", MsgBoxStyle.Information)
|
||||
|
||||
Reference in New Issue
Block a user