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