Detekcja statusu serwisu serwera Apache

Funkcja zwraca 1,2 lub -1 w przypadku braku zainstalowanego serwisu, gdzie szService - to nazwa Serwisu, bRun - sprawdzanie czy uruchomiony czy zatrzymany. Funkcję można zastosować do innych serwisów


function INT DetectApacheService(szService, bRun, bLog)
INT nResult;
number nvState;
begin
    nResult = 0;
    if ServiceExistsService(szService) then
        ServiceGetServiceState(szService, nvState);
        if (nvState = SERVICE_RUNNING) then
            if (bRun) then nResult = 1; endif;
            if (bLog) then WriteLog(1,"- usługa \""+szService+"\" jest uruchomiona"); endif;
        endif;
        if (nvState = SERVICE_STOPPED) then
            if (!bRun) then nResult = 1; endif;
            if (bLog) then WriteLog(2,"- usługa \""+szService+"\" jest zatrzymana"); endif;                                                           
        endif;
   
    else //Brak serwisu
        nResult = -1;
        if (bLog) then WriteLog(1," - brak zainstalowanego serwisu \""+szService+"\" w systemie"); endif;
    endif;       
   
    return nResult;
end;