edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Offline Modus Verbesserungen, SMB Share für User FIX

Browse Source
This commit is contained in:
ms
2025-03-18 09:03:36 +01:00
parent 130faf71ef
commit d275cf320d
18 changed files with 626 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Dokumentation/SMB.vb
View File

@@ -2,6 +2,7 @@
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)
@@ -12,7 +13,7 @@ Public Class SMB
End Sub
Function LoadSitzungen()
Dim ps = cExtProgramme.RunRemotePSScript("pandorasbox.verag.ost.dmn", "administrator@verag.ost.dmn", "+d#XisdBbSt!", "C:\Tools\SMBOpenFiles.ps1", True)
Dim ps = cExtProgramme.RunRemotePSScript(fileserver, "administrator@verag.ost.dmn", "+d#XisdBbSt!", "C:\Tools\SMBOpenFiles.ps1", True)
cSMB.obj2DS(ps, ds, "SMB")
End Function
@@ -43,7 +44,7 @@ Public Class SMB
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("stor10", "veragost\administrator", "+d#XisdBbSt!", "Get-SmbOpenFile | Where-Object {$_.ShareRelativePath -like '*" & datei & "*'} | close-SmbOpenFile -Force", False)
Dim ps = cExtProgramme.RunRemotePSScript(fileserver, "veragost\administrator", "+d#XisdBbSt!", "Get-SmbOpenFile | Where-Object {$_.ShareRelativePath -like '*" & datei & "*'} | close-SmbOpenFile -Force", False)
End Sub