jj: check if user is member of SERVER_USER before killing session
This commit is contained in:
parent
ba758515a5
commit
9ad40a1a15
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user