56 lines
1.7 KiB
VB.net
56 lines
1.7 KiB
VB.net
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 |