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

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