Diverse Bug-Fixes; Umstellung auf FQDN statt IP Adressen;

Dokumentation/Main.vb

@@ -616,30 +616,7 @@ Public Class Main
     End Function
 
     Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
-
-        Dim i As Integer = 0
-        Dim Width As Integer = 0
-        Dim frm As New frmLeer
-        frm.Text = "Berechtigungen"
-
-        Dim tempUser As New cBenutzer
-        tempUser.FillWithLoggedOnUser()
-
-        For Each Standort As String In LstStandort.Items
-            Dim usrcntrl As New uscntr_Berechtigungen
-            usrcntrl.User = tempUser
-            usrcntrl.lblName.Text = Standort
-            usrcntrl.Name = Standort
-            usrcntrl.Standort = Standort
-            usrcntrl.Location = New Point(0, i * usrcntrl.Height)
-            i = i + 1
-            frm.PanMain.Controls.Add(usrcntrl)
-            Width = usrcntrl.Width
-        Next
-
-        frm.Width = Width
-
-        frm.Show()
+        cFolder.netdelete("10.4.3.17")
 
     End Sub
 
@@ -1235,10 +1212,7 @@ Public Class Main
     End Sub
 
     Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-        Dim test As New cNetzwerk
-        test.getNetzwerk(LstStandort.SelectedItem, LstNetzwerk.SelectedItem)
-        test.getFirstHost()
-        MsgBox("STOP HIER")
+        cFolder.netuse("Verag", "1VerSub9#", "\\10.4.3.17")
     End Sub
 
     Private Sub ToolStripMenuItemINFO_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemINFO.Click