Exit code mit Nagios auswerten
Hallo Leute,
ich habe vor eine Log-Datei mit Nagios zu überprüfen. Dazu habe ich ein VB-Script geschrieben welches sich immer die letzte Log-Datei sucht und diese dann mit einer Grep.exe auf ein Muster überprüft. Nun möchte ich das dieses Script je nach Ergebnis der grep-suche einen Exitcode erzeugt und dieser dann von Nagios ausgewertet wird.
Das habe ich bis jetzt:
Option Explicit
Const Path = "C:\bck\"
Dim FileObj, File, FileName, FileTime, objShell, Cmd, output
Set FileObj = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
FileTime = DateValue("01/01/1980")
'letzte geänderte Datei suchen
For Each File In FileObj.GetFolder(Path).Files
If FileTime < File.DateLastModified Then
FileTime = File.DateLastModified
FileName = File.Path 'Datei-Pfad
'FileName = File.Name 'Datei-Name
End If
Next
'grep-Befehl ausführen
Set Cmd = objShell.Exec ("%comspec% /c grep -P -U "".B.a.c.k.u.p. .s.t.a.r.t.e.d.(.*[\r\n]+)*.B.a.c.k.u.p. .c.o.m.p.l.e.t.e.d.(.*[\r\n]+)*.B.a.c.k.u.p. .s.t.a.r.t.e.d.(.*[\r\n]+)*.B.a.c.k.u.p. .c.o.m.p.l.e.t.e.d.(.*[\r\n]+)*.B.a.c.k.u.p. .s.t.a.r.t.e.d.(.*[\r\n]+)*.B.a.c.k.u.p. .c.o.m.p.l.e.t.e.d."" " & FileName)
'auslesen der Kommandozeile
Do until Cmd.StdOut.AtEndOfStream
output = Cmd.StdOut.Readall
Loop
'Falls der gewünschte String ausgelesen wird Exitcode = 0 sonst Exitcode = 1
If output = "Übereinstimmungen in Binärdatei" Then
WScript.Quit(0)
Else
WScript.Quit(1)
End If
Habt ihr irgendwelche tipps? Und vor allem wie frage ich den Exitcode mit Nagios ab? gibt es da ein Plugin?
Auf dem Windows Server ist NSClient++ installiert.