Imports System.DirectoryServices.ActiveDirectory

Public Class SMB

    Property fileserver As String = "pandorasbox.verag.ost.dmn"
    Dim ds As New DataSet
    Private Sub SMB_Load(sender As Object, e As EventArgs) Handles Me.Load
        Class1.EnableDoubleBuffered(dgv)

        LoadSitzungen()
        LoadDGV()

    End Sub

    Function LoadSitzungen()
        Dim ps = cExtProgramme.RunRemotePSScript(fileserver, "administrator@verag.ost.dmn", "+d#XisdBbSt!", "C:\Tools\SMBOpenFiles.ps1", True)
        cSMB.obj2DS(ps, ds, "SMB")

    End Function

    Function LoadDGV()

        With dgv
            .DataSource = ds.Tables(0)
            .DefaultCellStyle.BackColor = Color.White
            .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue

            .SelectionMode = DataGridViewSelectionMode.FullRowSelect

            .AutoResizeColumn(1)
            .AutoResizeColumn(2)
            .AutoResizeColumn(3)
        End With
        counter.Text = dgv.Rows.Count

    End Function

    Private Sub Refresh_Click(sender As Object, e As EventArgs)
        ds.Reset()
        LoadSitzungen()
        LoadDGV()
    End Sub

    Private Sub SitzungBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SitzungBeendenToolStripMenuItem.Click
        Dim datei As String = dgv.CurrentRow.Cells("Datei").Value

        Dim ps = cExtProgramme.RunRemotePSScript(fileserver, "veragost\administrator", "+d#XisdBbSt!", "Get-SmbOpenFile | Where-Object {$_.ShareRelativePath -like '*" & datei & "*'} | close-SmbOpenFile -Force", False)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ds.Reset()
        LoadSitzungen()
        LoadDGV()
    End Sub
End Class