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

This commit is contained in:
Jonathan Jenne 2018-10-04 15:55:55 +02:00
parent ba758515a5
commit 9ad40a1a15

View File

@ -148,13 +148,19 @@ Public Class ClassWindream_allgemein
End Function
Public Function Stop_WMCC_andCo()
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 owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")
owindreamControlCenter.StartVFSService(0)
owindreamIndexService.Shutdown()
owindreamControlCenter.ExitCC(0)
End If
owindreamControlCenter.StartVFSService(0)
owindreamIndexService.Shutdown()
owindreamControlCenter.ExitCC(0)
End If
Catch ex As Exception
ClassLogger.Add("Error while Stopping WMCC and IndexService: " & ex.Message, True)
End Try