Diverses

Dokumentation/Main.vb

@@ -617,10 +617,8 @@ Public Class Main
 
     End Function
 
-    Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
-        'cFolder.netdelete("10.4.3.17")
 
-    End Sub
+
 
     Function GetUsersInGroup(ByVal groupname As String, Optional ByVal LDAP As String = "LDAP://DC=VERAG,DC=OST,DC=DMN") As List(Of String)
         Dim Userlist As New List(Of String)
@@ -637,10 +635,43 @@ Public Class Main
         Return Userlist
     End Function
 
+    Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
+        Dim frm As New frmLeer
+        frm.Text = "Benutzerverwaltung"
+        Dim usrcntrl As New uscntr_DomUser
+
+        usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
+        frm.Size = usrcntrl.Size
+        frm.Show()
+
+        AddHandler frm.FormClosing, Function()
+
+                                    End Function
+
+
+    End Sub
     Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
-        Dim test As New Object
-        Dim testuser As New cBenutzer
-        testuser.FillFromDC("CN=S-1-5-21-585332750-1805456821-3920631953-1235,CN=ForeignSecurityPrincipals,DC=verag,DC=ost,DC=dmn")
+        Dim testuser As New cDomUser
+        testuser.getDomUser("mit_email", "ms@verag.ag")
+
+        Dim frm As New frmLeer
+        frm.Text = "Benutzerverwaltung"
+        Dim usrcntrl As New uscntr_DomUser
+        usrcntrl.DomUser = testuser
+        usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
+        frm.Size = usrcntrl.Size
+        frm.Show()
+
+        AddHandler frm.FormClosing, Function()
+
+                                    End Function
+
+
+    End Sub
+    Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
+        Dim test As New cDomUser
+        test.getDomUserByID("7a5ea2da4ec34c74b3145bf090b39631")
+        MsgBox(test.du_Nachname)
     End Sub
 
     Public Function GetDHCPClients(Netzwerk As String, DHCPServer As String, Fill As Boolean, ByRef ds As DataSet)
@@ -1194,7 +1225,6 @@ Public Class Main
         Neu = True
         Dim frm As New frmAllgemeinEintrag
         frm.Text = "Neuer Eintrag"
-        'Eintrag.Titel = Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Titel").Value))
         If Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Rubrik").Value)) = "" Then
             frm.Eintrag.rubrik = Class1.DBNull2emptyString((DgVMain.Rows(0).Cells("Rubrik").Value))
         Else
@@ -1223,15 +1253,8 @@ Public Class Main
         frm.Show()
     End Sub
 
-    Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        panTSSitzungen.Controls.Clear()
-        Dim dingsi As New uscntr_TSSitzungen
-        '  Threading.Thread.Sleep(2000)
-        panTSSitzungen.Controls.Add(dingsi)
 
 
-    End Sub
-
     Private Sub ToolStripMenuItemINFO_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemINFO.Click
         Dim frm As New frmLeer
         frm.Text = "INFO"
@@ -1296,6 +1319,24 @@ Public Class Main
         End If
     End Sub
 
+    Private Sub btnBenutzerverwaltung_Click(sender As Object, e As EventArgs) Handles btnBenutzerverwaltung.Click
+        Dim frm As New frmLeer
+        frm.Text = "Benutzerverwaltung"
+        Dim usrcntrl As New uscntr_DomUserList
+
+        usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
+        frm.Size = usrcntrl.Size
+        frm.Show()
+
+        AddHandler frm.FormClosing, Function()
+
+                                    End Function
+    End Sub
+
+    Private Sub DgVMain_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellContentClick
+
+    End Sub
+
     Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
         If Tabelle = "TbL_Netzwerkclients" Then
             Dim ds As New DataSet