You could use something like this as batch:
net stop qlikviewserver
timeout /T 15
net start qlikviewserver
net stop qlikviewwebserver
timeout /T 15
net start qlikviewwebserver
net stop QlikviewManagementService
timeout /T 10
net start QlikviewManagementService
net stop QlikViewDistributionService
timeout /T 10
net start QlikViewDistributionService
net stop QlikviewDirectoryServiceConnector
timeout /T 10
net start QlikviewDirectoryServiceConnector
echo "QV-Server-Dienste wurden neugestartet"
pause
or something as vbs:
REM wird als Task vom Windows-Aufgabenplaner alle x Minuten ausgelöst
REM Umsetzung per Schleifen-Durchlauf durch ein Array der Serverdienste
REM auskommentierter Bereich --> eventuell mal erweiterte Tasks mit Stop + Start wegen anderer Fehler oder hoher Speicherlast
REM -----------------------------------------------------------------------------------------------------------------------------
Dim oService, index, arrService, i, fso, File
set fso = CreateObject("Scripting.FileSystemObject") 'FileSystemObject erstellen
set File = fso.OpenTextFile("D:\Qlikview_Anwendungen\Retail\Log\CheckQlikViewServices.txt", 8, true)
On Error Resume Next
redim arrService(4)
arrService(0) = "QlikViewDistributionService"
arrService(1) = "QlikviewDirectoryServiceConnector"
arrService(2) = "QlikviewManagementService"
arrService(3) = "QlikviewServer"
arrService(4) = "QlikviewWebserver"
for i = 0 to ubound(arrService)
set oService = GetObject("WinNT://" & "OBKQLIKTECH/" & arrService(i) & ",service")
if err.Number = 0 Then
REM if oService.Status = 4 Then
REM 'oService.Stop
REM File.Writeline now() & chr(9) & arrService(i) & chr(9) & oService.Status & chr(9) & "angehalten"
REM end if
if oService.Status = 1 Then
oService.Start
File.Writeline now() & chr(9) & arrService(i) & chr(9) & oService.Status & chr(9) & "gestartet"
end if
else
File.Writeline now() & chr(9) & arrService(i) & chr(9) & err.Number & ": " & err.Description & chr(9) & "Mail"
'MsgBox "Fehler: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Fehler"
end if
next
File.Close
REM -----------------------------------------------------------------------------------------------------------------------------
- Marcus
