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

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("!")

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 smb = False Then
-        If host.Linked = True Then
+            host.gethost(ip)
-            host.gethost(host.LinkedWith)
+            If host.Linked = True Then
-        End If
+                host.gethost(host.LinkedWith)
-        Class1.ip2netname(host.IPAdresse, nwstandort, netname)
+            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
+            If IO.Directory.Exists(Path) Then
-            Process.Start(Path)
+                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)

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.SMBToolStripMenuItem.Name = "SMBToolStripMenuItem"
-        Me.ToolStripMenuItemINFO.Name = "ToolStripMenuItemINFO"
+        Me.SMBToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
-        Me.ToolStripMenuItemINFO.Size = New System.Drawing.Size(24, 20)
+        Me.SMBToolStripMenuItem.Text = "SMB"
-        Me.ToolStripMenuItemINFO.Text = "?"
+        '
+        '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

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>

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()
+                    'dbload()
-                    con.Open()
+                    'con.Open()
-                    Dim sda As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", con)
+                    'Dim sda As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & SenderIP & "'", con)
-                    sda.Fill(ds)
+                    'sda.Fill(ds)
-                    con.Close()
+                    '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()
+                        'dbload()
-                        con.Open()
+                        'con.Open()
 
-                        Dim da As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", con)
+                        'Dim da As New SqlDataAdapter("SELECT * FROM Tbl_NetzwerkClients WHERE IPAdresse='" & LinkedWith & "'", con)
-                        da.Fill(dslinked)
+                        '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
+            Select Case art
-                Process.Start(Path)
+                Case "Dateien"
-            Else
+                    If IO.Directory.Exists(Path) Then
-                IO.Directory.CreateDirectory(Path)
+                        Process.Start(Path)
-                Process.Start(Path)
+                    Else
-            End If
+                        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
-
+        Dim test As String = ""
-
+        For Each User As cBenutzer In Class1.GroupUsers
-        MsgBox("Jupp")
+            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

Dokumentation/My 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

Dokumentation/My 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>

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

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