AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: check if user is member of SERVER_USER before killing session

Browse Source
This commit is contained in:
Jonathan Jenne
2018-10-04 15:55:55 +02:00
parent ba758515a5
commit 9ad40a1a15
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@@ -148,13 +148,19 @@ Public Class ClassWindream_allgemein
End Function End Function
Public Function Stop_WMCC_andCo() Public Function Stop_WMCC_andCo()
Try Try
If WMSESSION_STARTSTOP_STARTUP = True Then ' 04.10.18: Überprüft, ob der Benutzer Mitglied der SERVER_USER Gruppe ist
Dim sql = "SELECT T.GUID FROM TBDD_GROUPS_USER T
INNER JOIN TBDD_GROUPS T1 on T1.GUID = T.GROUP_ID
WHERE T1.NAME = 'SERVER_USER' AND T.USER_ID = " & USER_ID
Dim userExistsInServerUserGroup = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If WMSESSION_STARTSTOP_STARTUP = True And userExistsInServerUserGroup Then
Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter") Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl") Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")
owindreamControlCenter.StartVFSService(0) owindreamControlCenter.StartVFSService(0)
owindreamIndexService.Shutdown() owindreamIndexService.Shutdown()
owindreamControlCenter.ExitCC(0) owindreamControlCenter.ExitCC(0)
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Error while Stopping WMCC and IndexService: " & ex.Message, True) ClassLogger.Add("Error while Stopping WMCC and IndexService: " & ex.Message, True)
End Try End Try