Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Ein Skript erstellen für Serverüberwachung. Mein Idee... (https://www.delphipraxis.net/135149-ein-skript-erstellen-fuer-serverueberwachung-mein-idee.html)

Jackie1983 5. Jun 2009 15:07


Ein Skript erstellen für Serverüberwachung. Mein Idee...
 
Servus,

mein Skript ist eigentlich fertig und funktioniert auch ganz gut. Nur lassen sich da einige Dinge nicht mit umsetzen.
Zur Zeit verwende ich die komp TJvInterpreterProgram
Hier ein kleines Beispiel
Delphi-Quellcode:
Unit Programm;

Procedure Main;
var
  s : string;
  i : integer;
begin
  i := PruefeDienst(DienstX);
  if i = 3 then
    Meldung('Achtung Dienst X hat den Status 3');
end;

end.
Das Skript läuft alle X Minuten. Jetzt wird der Dienst geprüft und bei Status 3 eine Meldung erstellt.
Habe es schon so gemacht das wenn der die Meldung schon vorher mit dem gleich Wert existiert wird diese nicht nochmal zum Server gesendet.

Aber es läst sich nicht regeln das wenn der Dienst bei der 4 Abfrage immer noch den Status 3 hat erst dann soll eine Meldung gesendet werden.
Man könnte aber es so umsetzten das ein Teil des Skriptest in einer Schleife läuft
Delphi-Quellcode:
Unit Programm;

Procedure Main;
var
  s : string;
  i,m : integer;
begin
  m := 0;
  while true do
  begin
    i := PruefeDienst(DienstX);
    inc(m);
    if (i = 3) AND (m = 4) then
    begin
      Meldung('Achtung Dienst X hat den Status 3');
      m := 0;
    end;
  end;
end;

end.
Was ich finde aber auch nicht gerade praktisch ist.
Ich suche halt eine Methode um ein Skript laufen zulassen was bestimmte dinge überwacht.
Pro Server läuft dann ein Skript. Man könnte natürlich auch ein Skript fürs netzwerk erstellen, aber welcher Server hat dann die Ehre und was ist wenn dieser mal Down ist.

Wenn ich bei andere Software mal schaue, erstellen diese meistens Textdateien.
Der Inhalt könnte dann so aussehen
Zitat:

[PING]
DEVICE=192.168.100.10
DEVICE=192.168.100.11

[DEVICE_192.168.100.10]
Meldung_Bei=3 // versuchen
Meldungs_Text='Bla'

[DEVICE_192.168.100.11]
Meldung_Bei=1 // versuchen
Meldungs_Text='Bla'
Was meint ihr? Was ist effektiver?
Pro Server ein Skript.
Pro Netzwerk ein Skript.
Skript mit Schleife oder doch ohne
Oder doch eine Textdatei.

Wäre um Tipps und Ideen dankbar.
Ein schönes WE.

Mfg

alzaimar 6. Jun 2009 07:08

Re: Ein Skript erstellen für Serverüberwachung. Mein Idee...
 
Was möchtest Du denn erreichen? Wie sieht dein Skript aus?

Jackie1983 8. Jun 2009 09:15

Re: Ein Skript erstellen für Serverüberwachung. Mein Idee...
 
Zitat:

Zitat von alzaimar
Was möchtest Du denn erreichen? Wie sieht dein Skript aus?

Möchte gerne unsere Server überwachen und bei bestimmten Ereignissen dementsprechend Reagieren.

Je nach Server Bereich gibt es ein anderes Skript. So wie oben in der Art.

quendolineDD 8. Jun 2009 10:44

Re: Ein Skript erstellen für Serverüberwachung. Mein Idee...
 
Zitat:

Möchte gerne unsere Server überwachen
Was willst du denn genau überwachen?

Jackie1983 8. Jun 2009 12:34

Re: Ein Skript erstellen für Serverüberwachung. Mein Idee...
 
so das übliche: Dienste, Service (http, mail), festplatten, cpu, dateien


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:00 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz