Direkter Zugriff auf SMB Shares, IP Adresse zu Clipboard, ...

2019-08-23 11:33:48 +02:00
parent f470bce279
commit a9372916e4
9 changed files with 178 additions and 93 deletions
--- a/Dokumentation/Classes/cBenutzer.vb
+++ b/Dokumentation/Classes/cBenutzer.vb
@@ -14,6 +14,7 @@ Public Class cBenutzer
    Property cn As String = ""
    Property msDSPrincipalName As String = ""
    Property localdistinguishedName As String = ""
+    Property suchname As String = ""



@@ -38,6 +39,7 @@ Public Class cBenutzer
        Try
            localdistinguishedName = searchname

+            suchname = searchname

            If searchname.Contains("ForeignSecurityPrincipals") Then
                'MsgBox("!")
--- a/Dokumentation/Classes/cFolder.vb
+++ b/Dokumentation/Classes/cFolder.vb
@@ -22,21 +22,26 @@

    End Function

-    Public Shared Function explorerstarten(ip As String)
+    Public Shared Function explorerstarten(ip As String, Optional ByVal smb As Boolean = False)
        Dim Path, nwstandort, netname As String
        Dim host As New Host
-        host.gethost(ip)
-        If host.Linked = True Then
-            host.gethost(host.LinkedWith)
-        End If
-        Class1.ip2netname(host.IPAdresse, nwstandort, netname)
+        If smb = False Then
+            host.gethost(ip)
+            If host.Linked = True Then
+                host.gethost(host.LinkedWith)
+            End If
+            Class1.ip2netname(host.IPAdresse, nwstandort, netname)

-        Path = Class1.FilePath & "\" & nwstandort & "_" & netname & "\" & host.HOST
+            Path = Class1.FilePath & "\" & nwstandort & "_" & netname & "\" & host.HOST

-        If IO.Directory.Exists(Path) Then
-            Process.Start(Path)
+            If IO.Directory.Exists(Path) Then
+                Process.Start(Path)
+            Else
+                IO.Directory.CreateDirectory(Path)
+                Process.Start(Path)
+            End If
        Else
-            IO.Directory.CreateDirectory(Path)
+            Path = "\\" & ip
            Process.Start(Path)
        End If
        'MsgBox(path)
--- a/Dokumentation/Main.Designer.vb
+++ b/Dokumentation/Main.Designer.vb
@@ -54,6 +54,7 @@ Partial Class Main
        Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ExitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItemINFO = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.lblCount = New System.Windows.Forms.Label()
        Me.btnNeu = New System.Windows.Forms.Button()
@@ -96,7 +97,8 @@ Partial Class Main
        Me.TimerUhrzeit = New System.Windows.Forms.Timer(Me.components)
        Me.TimerUpdate = New System.Windows.Forms.Timer(Me.components)
        Me.TimerWillkommen = New System.Windows.Forms.Timer(Me.components)
-        Me.ToolStripMenuItemINFO = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SMBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.IPAdresseInZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel2.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.PanType.SuspendLayout()
@@ -334,48 +336,48 @@ Partial Class Main
        'NetzwerkeToolStripMenuItem
        '
        Me.NetzwerkeToolStripMenuItem.Name = "NetzwerkeToolStripMenuItem"
-        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NetzwerkeToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.NetzwerkeToolStripMenuItem.Text = "Tabellen bearbeiten"
        '
        'AnsichtDruckenToolStripMenuItem
        '
        Me.AnsichtDruckenToolStripMenuItem.Name = "AnsichtDruckenToolStripMenuItem"
-        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.AnsichtDruckenToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.AnsichtDruckenToolStripMenuItem.Text = "Drucken"
        '
        'ExportToolStripMenuItem
        '
        Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
-        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.ExportToolStripMenuItem.Text = "Export"
        '
        'ImportToolStripMenuItem
        '
        Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
-        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.ImportToolStripMenuItem.Text = "Import"
        '
        'BenutzerToolStripMenuItem
        '
        Me.BenutzerToolStripMenuItem.Name = "BenutzerToolStripMenuItem"
-        Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.BenutzerToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.BenutzerToolStripMenuItem.Text = "Benutzer"
        '
        'ToolStripSeparator1
        '
        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(174, 6)
        '
        'UpdateToolStripMenuItem
        '
        Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.UpdateToolStripMenuItem.Text = "Update"
        '
        'ExitToolStripMenuItem
        '
        Me.ExitToolStripMenuItem.Name = "ExitToolStripMenuItem"
-        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ExitToolStripMenuItem.Size = New System.Drawing.Size(177, 22)
        Me.ExitToolStripMenuItem.Text = "Exit"
        '
        'ToolStripMenuItem2
@@ -383,6 +385,13 @@ Partial Class Main
        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(12, 20)
        '
+        'ToolStripMenuItemINFO
+        '
+        Me.ToolStripMenuItemINFO.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripMenuItemINFO.Name = "ToolStripMenuItemINFO"
+        Me.ToolStripMenuItemINFO.Size = New System.Drawing.Size(24, 20)
+        Me.ToolStripMenuItemINFO.Text = "?"
+        '
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
@@ -637,61 +646,61 @@ Partial Class Main
        '
        'DGVMainContext
        '
-        Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.ErstellenToolStripMenuItem, Me.DateienToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
+        Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.ErstellenToolStripMenuItem, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
        Me.DGVMainContext.Name = "ContextMenuStrip2"
-        Me.DGVMainContext.Size = New System.Drawing.Size(165, 170)
+        Me.DGVMainContext.Size = New System.Drawing.Size(230, 236)
        '
        'DgvMainContextMenuItemHost
        '
        Me.DgvMainContextMenuItemHost.Name = "DgvMainContextMenuItemHost"
-        Me.DgvMainContextMenuItemHost.Size = New System.Drawing.Size(164, 22)
+        Me.DgvMainContextMenuItemHost.Size = New System.Drawing.Size(180, 22)
        Me.DgvMainContextMenuItemHost.Text = "Bearbeiten"
        '
        'ErstellenToolStripMenuItem
        '
        Me.ErstellenToolStripMenuItem.Name = "ErstellenToolStripMenuItem"
-        Me.ErstellenToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
+        Me.ErstellenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ErstellenToolStripMenuItem.Text = "Erstellen"
        '
        'DateienToolStripMenuItem
        '
        Me.DateienToolStripMenuItem.Name = "DateienToolStripMenuItem"
-        Me.DateienToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
+        Me.DateienToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.DateienToolStripMenuItem.Text = "Dateien"
        '
        'DgvMainContextMenuItemLink
        '
        Me.DgvMainContextMenuItemLink.Name = "DgvMainContextMenuItemLink"
-        Me.DgvMainContextMenuItemLink.Size = New System.Drawing.Size(164, 22)
+        Me.DgvMainContextMenuItemLink.Size = New System.Drawing.Size(180, 22)
        Me.DgvMainContextMenuItemLink.Text = "Link öffnen"
        '
        'ToolStripSeparator3
        '
        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(161, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
        '
        'ObjektLöschenToolStripMenuItem
        '
        Me.ObjektLöschenToolStripMenuItem.Name = "ObjektLöschenToolStripMenuItem"
-        Me.ObjektLöschenToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
+        Me.ObjektLöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ObjektLöschenToolStripMenuItem.Text = "Objekt löschen"
        '
        'ToolStripSeparator2
        '
        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(161, 6)
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
        '
        'NetzwerkdateienToolStripMenuItem
        '
        Me.NetzwerkdateienToolStripMenuItem.Name = "NetzwerkdateienToolStripMenuItem"
-        Me.NetzwerkdateienToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
+        Me.NetzwerkdateienToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.NetzwerkdateienToolStripMenuItem.Text = "Standort-Dateien"
        '
        'ToolsToolStripMenuItem
        '
        Me.ToolsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PuttyToolStripMenuItem, Me.PingToolStripMenuItem, Me.ToolStripSeparator4})
        Me.ToolsToolStripMenuItem.Name = "ToolsToolStripMenuItem"
-        Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(164, 22)
+        Me.ToolsToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ToolsToolStripMenuItem.Text = "Tools"
        '
        'PuttyToolStripMenuItem
@@ -778,12 +787,17 @@ Partial Class Main
        Me.TimerWillkommen.Enabled = True
        Me.TimerWillkommen.Interval = 5000
        '
-        'ToolStripMenuItemINFO
+        'SMBToolStripMenuItem
        '
-        Me.ToolStripMenuItemINFO.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripMenuItemINFO.Name = "ToolStripMenuItemINFO"
-        Me.ToolStripMenuItemINFO.Size = New System.Drawing.Size(24, 20)
-        Me.ToolStripMenuItemINFO.Text = "?"
+        Me.SMBToolStripMenuItem.Name = "SMBToolStripMenuItem"
+        Me.SMBToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.SMBToolStripMenuItem.Text = "SMB"
+        '
+        'IPAdresseInZwischenablageToolStripMenuItem
+        '
+        Me.IPAdresseInZwischenablageToolStripMenuItem.Name = "IPAdresseInZwischenablageToolStripMenuItem"
+        Me.IPAdresseInZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
+        Me.IPAdresseInZwischenablageToolStripMenuItem.Text = "IP Adresse in Zwischenablage"
        '
        'Main
        '
@@ -895,4 +909,6 @@ Partial Class Main
    Friend WithEvents btnTest3 As Button
    Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
    Friend WithEvents ToolStripMenuItemINFO As ToolStripMenuItem
+    Friend WithEvents SMBToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents IPAdresseInZwischenablageToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Dokumentation/Main.resx
+++ b/Dokumentation/Main.resx
@@ -117,6 +117,9 @@
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
--- a/Dokumentation/Main.vb
+++ b/Dokumentation/Main.vb
@@ -896,7 +896,7 @@ Public Class Main
        End Try
    End Sub

-    Private Function explorerstarten(sender As String)
+    Private Function explorerstarten(sender As String, Optional ByVal art As String = "Dateien")
        Dim ds As New DataSet
        Dim Path As String
        Dim islinked As Integer
@@ -905,11 +905,12 @@ Public Class Main
            werbinich()
            If sender = "Client" Then
                Try
-                    dbload()
-                    con.Open()
-                    Dim sda As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", con)
-                    sda.Fill(ds)
-                    con.Close()
+                    'dbload()
+                    'con.Open()
+                    'Dim sda As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", con)
+                    'sda.Fill(ds)
+                    'con.Close()
+                    SQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", ds)

                    If IsDBNull(ds.Tables(0).Rows(0).Item("Linked")) Then
                        islinked = "0"
@@ -927,17 +928,29 @@ Public Class Main
                    If islinked = "1" Then
                        Dim dslinked As New DataSet()

-                        dbload()
-                        con.Open()
+                        'dbload()
+                        'con.Open()

-                        Dim da As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", con)
-                        da.Fill(dslinked)
+                        'Dim da As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", con)
+                        'da.Fill(dslinked)

-                        con.Close()
+                        'con.Close()
+                        SQL.SQL2DS("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", dslinked)
+                        Select Case art
+                            Case "Dateien"
+                                Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("NWStandort") & "_" & dslinked.Tables(0).Rows(0).Item("NetName") & "\" & dslinked.Tables(0).Rows(0).Item("Host")
+                            Case "SMB"
+                                Path = "\\" & dslinked.Tables(0).Rows(0).Item("IPAdresse")
+                        End Select

-                        Path = Class1.FilePath & "\" & dslinked.Tables(0).Rows(0).Item("NWStandort") & "_" & dslinked.Tables(0).Rows(0).Item("NetName") & "\" & dslinked.Tables(0).Rows(0).Item("Host")
                    Else
-                        Path = Class1.FilePath & "\" & SenderStandort & "_" & SenderNetzwerk & "\" & SenderHost
+                        Select Case art
+                            Case "Dateien"
+                                Path = Class1.FilePath & "\" & SenderStandort & "_" & SenderNetzwerk & "\" & SenderHost
+                            Case "SMB"
+                                Path = "\\" & SenderIP
+                        End Select
+
                    End If
                Catch ex As Exception
                    MsgBox("ExplorerStarten() Tbl_Netzwerkclients: " & ex.Message)
@@ -995,13 +1008,20 @@ Public Class Main

        ''Pfad öffnen:
        Try
-            If IO.Directory.Exists(Path) Then
-                Process.Start(Path)
-            Else
-                IO.Directory.CreateDirectory(Path)
-                Process.Start(Path)
-            End If
+            Select Case art
+                Case "Dateien"
+                    If IO.Directory.Exists(Path) Then
+                        Process.Start(Path)
+                    Else
+                        IO.Directory.CreateDirectory(Path)
+                        Process.Start(Path)
+                    End If
+                Case "SMB"
+                    Process.Start(Path)
+            End Select
+
        Catch ex As Exception
+            MsgBox("Pfad öffnen: " & Path & vbCrLf & ex.Message)
        End Try

        'MsgBox(Tabelle)
@@ -1195,10 +1215,11 @@ Public Class Main
    End Sub

    Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
-
-
-        MsgBox("Jupp")
-
+        Dim test As String = ""
+        For Each User As cBenutzer In Class1.GroupUsers
+            test &= User.suchname & vbCrLf
+        Next
+        MsgBox(test)
    End Sub

    Private Sub ToolStripMenuItemINFO_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemINFO.Click
@@ -1210,6 +1231,21 @@ Public Class Main
        frm.Show()
    End Sub

+    Private Sub SMBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SMBToolStripMenuItem.Click
+        If DgVMain.GetCellCount(DataGridViewElementStates.Selected) > 0 Then
+            explorerstarten("Client", "SMB")
+        Else
+            LblUhrzeit.Text = "Keine Auswahl getätigt"
+        End If
+    End Sub
+
+    Private Sub IPAdresseInZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IPAdresseInZwischenablageToolStripMenuItem.Click
+        werbinich()
+        If SenderIP <> String.Empty Then
+            Clipboard.SetText(SenderIP)
+        End If
+    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
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -169,7 +169,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.31 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 0.0.1.32 ähnelt.
        '''</summary>
        Friend ReadOnly Property Version() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -131,7 +131,7 @@
    <value>..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="Version" xml:space="preserve">
-    <value>0.0.1.31</value>
+    <value>0.0.1.32</value>
  </data>
  <data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
--- a/Dokumentation/frmHostBearbeiten.Designer.vb
+++ b/Dokumentation/frmHostBearbeiten.Designer.vb
@@ -70,12 +70,13 @@ Partial Class frmHostBearbeiten
        Me.CmdDelete = New System.Windows.Forms.Button()
        Me.TxtBenutzername = New System.Windows.Forms.TextBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.lblSuchfilter = New System.Windows.Forms.Label()
        Me.ChkShowSlaves = New System.Windows.Forms.CheckBox()
+        Me.lblSuchfilter = New System.Windows.Forms.Label()
        Me.PanFirewall = New System.Windows.Forms.Panel()
        Me.PanSlaves = New System.Windows.Forms.Panel()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.PanNavTop = New System.Windows.Forms.Panel()
+        Me.cmdSMB = New System.Windows.Forms.Button()
        Me.ContextMenuStrip2.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -86,7 +87,7 @@ Partial Class frmHostBearbeiten
        'chkFirewall
        '
        Me.chkFirewall.AutoSize = True
-        Me.chkFirewall.Location = New System.Drawing.Point(509, 447)
+        Me.chkFirewall.Location = New System.Drawing.Point(509, 420)
        Me.chkFirewall.Name = "chkFirewall"
        Me.chkFirewall.Size = New System.Drawing.Size(123, 17)
        Me.chkFirewall.TabIndex = 136
@@ -100,7 +101,7 @@ Partial Class frmHostBearbeiten
        Me.CmdHostLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.CmdHostLink.Location = New System.Drawing.Point(332, 349)
        Me.CmdHostLink.Name = "CmdHostLink"
-        Me.CmdHostLink.Size = New System.Drawing.Size(94, 23)
+        Me.CmdHostLink.Size = New System.Drawing.Size(96, 23)
        Me.CmdHostLink.TabIndex = 135
        Me.CmdHostLink.Text = "Link"
        Me.CmdHostLink.UseVisualStyleBackColor = False
@@ -135,9 +136,9 @@ Partial Class frmHostBearbeiten
        Me.CmdCopy.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdCopy.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdCopy.Location = New System.Drawing.Point(112, 11)
+        Me.CmdCopy.Location = New System.Drawing.Point(108, 11)
        Me.CmdCopy.Name = "CmdCopy"
-        Me.CmdCopy.Size = New System.Drawing.Size(94, 23)
+        Me.CmdCopy.Size = New System.Drawing.Size(96, 23)
        Me.CmdCopy.TabIndex = 131
        Me.CmdCopy.Text = "Kopieren nach"
        Me.CmdCopy.UseVisualStyleBackColor = False
@@ -157,9 +158,9 @@ Partial Class frmHostBearbeiten
        Me.CmdIPChange.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdIPChange.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdIPChange.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdIPChange.Location = New System.Drawing.Point(212, 11)
+        Me.CmdIPChange.Location = New System.Drawing.Point(210, 11)
        Me.CmdIPChange.Name = "CmdIPChange"
-        Me.CmdIPChange.Size = New System.Drawing.Size(94, 23)
+        Me.CmdIPChange.Size = New System.Drawing.Size(96, 23)
        Me.CmdIPChange.TabIndex = 130
        Me.CmdIPChange.Text = "IP Ändern"
        Me.CmdIPChange.UseVisualStyleBackColor = False
@@ -253,7 +254,7 @@ Partial Class frmHostBearbeiten
        'Label10
        '
        Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(3, 308)
+        Me.Label10.Location = New System.Drawing.Point(3, 297)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(74, 13)
        Me.Label10.TabIndex = 127
@@ -263,14 +264,14 @@ Partial Class frmHostBearbeiten
        '
        Me.TxtType.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
        Me.TxtType.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
-        Me.TxtType.Location = New System.Drawing.Point(6, 285)
+        Me.TxtType.Location = New System.Drawing.Point(6, 274)
        Me.TxtType.Name = "TxtType"
        Me.TxtType.Size = New System.Drawing.Size(300, 20)
        Me.TxtType.TabIndex = 99
        '
        'TxtSeriennummer
        '
-        Me.TxtSeriennummer.Location = New System.Drawing.Point(6, 324)
+        Me.TxtSeriennummer.Location = New System.Drawing.Point(6, 313)
        Me.TxtSeriennummer.Name = "TxtSeriennummer"
        Me.TxtSeriennummer.Size = New System.Drawing.Size(300, 20)
        Me.TxtSeriennummer.TabIndex = 100
@@ -278,7 +279,7 @@ Partial Class frmHostBearbeiten
        'Label4
        '
        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(3, 269)
+        Me.Label4.Location = New System.Drawing.Point(3, 258)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(31, 13)
        Me.Label4.TabIndex = 117
@@ -308,7 +309,7 @@ Partial Class frmHostBearbeiten
        Me.TxtQuickInfo.Location = New System.Drawing.Point(4, 209)
        Me.TxtQuickInfo.Multiline = True
        Me.TxtQuickInfo.Name = "TxtQuickInfo"
-        Me.TxtQuickInfo.Size = New System.Drawing.Size(300, 57)
+        Me.TxtQuickInfo.Size = New System.Drawing.Size(302, 46)
        Me.TxtQuickInfo.TabIndex = 98
        '
        'Label5
@@ -334,9 +335,9 @@ Partial Class frmHostBearbeiten
        Me.CmdSave.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdSave.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdSave.Location = New System.Drawing.Point(538, 349)
+        Me.CmdSave.Location = New System.Drawing.Point(536, 349)
        Me.CmdSave.Name = "CmdSave"
-        Me.CmdSave.Size = New System.Drawing.Size(94, 23)
+        Me.CmdSave.Size = New System.Drawing.Size(96, 23)
        Me.CmdSave.TabIndex = 108
        Me.CmdSave.Text = "&Speichern"
        Me.CmdSave.UseVisualStyleBackColor = False
@@ -355,9 +356,9 @@ Partial Class frmHostBearbeiten
        Me.CmdReset.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdReset.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdReset.Location = New System.Drawing.Point(115, 379)
+        Me.CmdReset.Location = New System.Drawing.Point(108, 378)
        Me.CmdReset.Name = "CmdReset"
-        Me.CmdReset.Size = New System.Drawing.Size(94, 23)
+        Me.CmdReset.Size = New System.Drawing.Size(96, 23)
        Me.CmdReset.TabIndex = 111
        Me.CmdReset.Text = "Reset"
        Me.CmdReset.UseVisualStyleBackColor = False
@@ -367,9 +368,9 @@ Partial Class frmHostBearbeiten
        Me.CmdAbbrechen.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdAbbrechen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdAbbrechen.Location = New System.Drawing.Point(538, 378)
+        Me.CmdAbbrechen.Location = New System.Drawing.Point(536, 378)
        Me.CmdAbbrechen.Name = "CmdAbbrechen"
-        Me.CmdAbbrechen.Size = New System.Drawing.Size(94, 23)
+        Me.CmdAbbrechen.Size = New System.Drawing.Size(96, 23)
        Me.CmdAbbrechen.TabIndex = 109
        Me.CmdAbbrechen.Text = "Schließen"
        Me.CmdAbbrechen.UseVisualStyleBackColor = False
@@ -434,7 +435,7 @@ Partial Class frmHostBearbeiten
        Me.CmdDateien.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.CmdDateien.Location = New System.Drawing.Point(332, 378)
        Me.CmdDateien.Name = "CmdDateien"
-        Me.CmdDateien.Size = New System.Drawing.Size(94, 23)
+        Me.CmdDateien.Size = New System.Drawing.Size(96, 23)
        Me.CmdDateien.TabIndex = 110
        Me.CmdDateien.Text = "Dateien"
        Me.CmdDateien.UseVisualStyleBackColor = False
@@ -486,9 +487,9 @@ Partial Class frmHostBearbeiten
        Me.CmdDelete.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.CmdDelete.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
        Me.CmdDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.CmdDelete.Location = New System.Drawing.Point(4, 379)
+        Me.CmdDelete.Location = New System.Drawing.Point(6, 378)
        Me.CmdDelete.Name = "CmdDelete"
-        Me.CmdDelete.Size = New System.Drawing.Size(94, 23)
+        Me.CmdDelete.Size = New System.Drawing.Size(96, 23)
        Me.CmdDelete.TabIndex = 112
        Me.CmdDelete.Text = "Löschen"
        Me.CmdDelete.UseVisualStyleBackColor = False
@@ -504,6 +505,7 @@ Partial Class frmHostBearbeiten
        '
        'Panel1
        '
+        Me.Panel1.Controls.Add(Me.cmdSMB)
        Me.Panel1.Controls.Add(Me.ChkShowSlaves)
        Me.Panel1.Controls.Add(Me.chkFirewall)
        Me.Panel1.Controls.Add(Me.TxtBenutzername)
@@ -546,9 +548,20 @@ Partial Class frmHostBearbeiten
        Me.Panel1.Controls.Add(Me.Label4)
        Me.Panel1.Location = New System.Drawing.Point(12, 62)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(643, 468)
+        Me.Panel1.Size = New System.Drawing.Size(643, 449)
        Me.Panel1.TabIndex = 137
        '
+        'ChkShowSlaves
+        '
+        Me.ChkShowSlaves.AutoSize = True
+        Me.ChkShowSlaves.Location = New System.Drawing.Point(387, 420)
+        Me.ChkShowSlaves.Name = "ChkShowSlaves"
+        Me.ChkShowSlaves.Size = New System.Drawing.Size(104, 17)
+        Me.ChkShowSlaves.TabIndex = 137
+        Me.ChkShowSlaves.Text = "Slaves anzeigen"
+        Me.ChkShowSlaves.UseVisualStyleBackColor = True
+        Me.ChkShowSlaves.Visible = False
+        '
        'lblSuchfilter
        '
        Me.lblSuchfilter.AutoSize = True
@@ -560,17 +573,6 @@ Partial Class frmHostBearbeiten
        Me.lblSuchfilter.Text = "Suchfilter ist aktiviert!"
        Me.lblSuchfilter.Visible = False
        '
-        'ChkShowSlaves
-        '
-        Me.ChkShowSlaves.AutoSize = True
-        Me.ChkShowSlaves.Location = New System.Drawing.Point(387, 447)
-        Me.ChkShowSlaves.Name = "ChkShowSlaves"
-        Me.ChkShowSlaves.Size = New System.Drawing.Size(104, 17)
-        Me.ChkShowSlaves.TabIndex = 137
-        Me.ChkShowSlaves.Text = "Slaves anzeigen"
-        Me.ChkShowSlaves.UseVisualStyleBackColor = True
-        Me.ChkShowSlaves.Visible = False
-        '
        'PanFirewall
        '
        Me.PanFirewall.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -610,6 +612,18 @@ Partial Class frmHostBearbeiten
        Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
        Me.PanNavTop.TabIndex = 141
        '
+        'cmdSMB
+        '
+        Me.cmdSMB.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.cmdSMB.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
+        Me.cmdSMB.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cmdSMB.Location = New System.Drawing.Point(434, 349)
+        Me.cmdSMB.Name = "cmdSMB"
+        Me.cmdSMB.Size = New System.Drawing.Size(96, 23)
+        Me.cmdSMB.TabIndex = 138
+        Me.cmdSMB.Text = "SMB"
+        Me.cmdSMB.UseVisualStyleBackColor = False
+        '
        'frmHostBearbeiten
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -690,4 +704,5 @@ Partial Class frmHostBearbeiten
    Friend WithEvents lblSuchfilter As Label
    Friend WithEvents PictureBox1 As PictureBox
    Friend WithEvents PanNavTop As Panel
+    Friend WithEvents cmdSMB As Button
 End Class
--- a/Dokumentation/frmHostBearbeiten.vb
+++ b/Dokumentation/frmHostBearbeiten.vb
@@ -303,4 +303,12 @@
        host.gethost(TxtLinkedWith.Text)
        fillform(host)
    End Sub
+
+    Private Sub cmdSMB_Click(sender As Object, e As EventArgs) Handles cmdSMB.Click
+        cFolder.explorerstarten(host.IPAdresse, True)
+    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.DoubleClick
+        Clipboard.SetText(host.IPAdresse)
+    End Sub
 End Class