' Script zur Überprüfung vom Avira Antivir Update
' Wenn die Virendefinition jünger als 1440 Minuten sind, ist die Ausgabe OK, ansonsten CRITICAL
'
' Bei Bedarf strFolderName oder strMinute anpassen.
' 
' von Matthias Kellermann 17.04.2007 mk[at]adminlife[dot]net
' 
' Basiert auf Plugin von Ingi70 / 20.06.2005
'--------------------------------------------------------------------------------


'Rückgabewerte an NAGIOS
Const intOK = 0
Const intWarning = 1
Const intCritical = 2
Const intUnknown = 3

'Verzeichnis in dem gesucht werden soll
strFolderName = "C:\Programme\AVNetNT\update" 

'Anzahl der Minuten von Jetzt. Datei dessen Alter jünger als dieser Wert ist, 
' muss vorhanden sein damit Nagios OK anzeigt
strMinute = 1440

Dim FileCount 
FileCount = 0
Dim strDatediffmax
strDatediffmax = 3601
Set fso = CreateObject("Scripting.FileSystemObject") 
Set myFolder = fso.GetFolder(strFolderName) 
Set myFiles = myFolder.Files 
for each myFile in myFiles 
    dtmDateLastModified = myFile.DateLastModified 
    ' --- vergleiche das Alter der Datei mit der aktuellen Zeit 
    if DateDiff("n", dtmDateLastModified, now) < strMinute Then
               FileCount = FileCount+1
               If DateDiff("n", dtmDateLastModified, now)< strDatediffmax Then 
                     strDatediffmax  = DateDiff("n", dtmDateLastModified, now)
               End If
        'Debug
        'Wscript.Echo DateDiff("n", dtmDateLastModified, now)
    end If 
next 
If FileCount > 0 Then 
	Wscript.Echo "OK: Antivir Update vor " & strDatediffmax & " Minuten durchgefuehrt"
	Wscript.Quit(intOK)
	Else 
	Wscript.Echo "CRITICAL: Virendefinitionen aelter als 24h"
  Wscript.Quit(intCritical)
End If