neu

Aviso/frmLogin.vb

@@ -3,6 +3,7 @@ Imports System.Windows.Forms
 Imports VERAG_PROG_ALLGEMEIN
 
 Imports System.Reflection
+Imports System.DirectoryServices
 
 Public Class frmLogin
 
@@ -12,7 +13,7 @@ Public Class frmLogin
     '  Public USRID As String
     Private ADMIN As New cADMIN
     Public firma As String = "VERAG"
-   
+
 
     Public Sub New()
         InitializeComponent()
@@ -157,10 +158,23 @@ Public Class frmLogin
 
         ' txtSachbear.Text = ""
         'txtKennwort.Text = ""
-     
+
         txtSachbear.Text = SystemInformation.UserName
         txtSachbear.Focus()
 
+        Try
+            Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name
+            If WI.Contains("\") Then
+                Dim Split() = WI.Split("\")
+                Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1))
+                If UsernameTMP <> "" Then
+                    txtSachbear.Text = UsernameTMP
+                End If
+            End If
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+        End Try
+
 
     End Sub
     Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
@@ -272,7 +286,7 @@ Public Class frmLogin
     End Sub
 
     Private Sub AdminLoginOK()
-        Dim cMitarbeiter As New cMitarbeiteraviso
+        Dim cMitarbeiter As New cMitarbeiterAVISO
         cMitarbeiter.MitarbeiterID = 0
         '  VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB"
         cMitarbeiter.Mitarbeiter = "PROGRAMM_ADMIN"
@@ -324,7 +338,7 @@ Public Class frmLogin
         End If
     End Sub
 
- 
+
 
     Private Sub lblVersion_OnClick(sender As Object, e As MouseEventArgs) Handles lblVersion.MouseClick
         ctxUpdate.Show(lblVersion, e.Location)