monitors:forefront

no way to compare when less than two revisions

Differences

This shows you the differences between two versions of the page.


—monitors:forefront [2009/11/23 05:48] (current) – created - external edit 127.0.0.1
Line 1: Line 1:
 +====== Forefront Security for Exchange 2007 ======
 +
 +^ Author | [[ david@stenhouseconsulting.com | David Gilmore ]] |
 +^ Compatibility | Xymon 4.2 |
 +^ Requirements | Windows Server 2003 x64/Exchange 2007/Forefront Security Server for Exchange 2007/BBWin |
 +^ Download | None |
 +^ Last Update | 2007-07-12 |
 +
 +===== Description =====
 +
 +VBS Script that checks the status of multiple AV engines used by Microsoft’s Forefront Security Server for Exchange and reports status under the FSE column.
 +
 +===== Installation =====
 +=== Client side ===
 +  - Add to BBWin.cfg in externals<code xml>
 +   <load value="cscript 'C:\Program Files\BBWin\ext\forefront.vbs'" /></code> This may work as well <code xml>
 +   <load value="cscript ..\ext\forefront.vbs /></code>
 +
 +=== Server side ===
 +
 +  * None
 +
 +===== Source =====
 +
 +==== forefront.vbs ====
 +<hidden onHidden="Show Code ⇲" onVisible="Hide Code ⇱">
 +<code vb>
 +'==========================================================================================================
 +'
 +' VBScript Source File 
 +'
 +' NAME: MSForefront.vbs (formerly BBantigen-V8.vbs)
 +'       Script to be used with BBWin to check ForeFront Server for Exchange 2007 virus definition version
 +'
 +' Version: 1.5
 +'
 +' AUTHOR: David Gilmore; david@stenhouseconsulting.com
 +' DATE  : 07/11/2007
 +'
 +' COMMENT:  This script will check a range of engines which are used in ForeFront Server for Exchange 2007
 +'           It will Warn or Alarm as configured and report the information back to the 
 +'           configured Xymon Server. It requires the BBWin client installed.
 +'     You can put the script in the Externals Scripts or you can schedule it as a scheduled task.
 +'           Since it is recommended to use no more than five engines you will need to modify script for engines
 +'     in use. 
 +'
 +'
 +' LICENSE: 
 +' Copyright (c) 2005, Roos-IT
 +' All rights reserved.
 +'
 +' Redistribution and use in source and binary forms, with or without 
 +' modification, are permitted provided that the following conditions are met:
 +'
 +' - Redistributions of source code must retain the above copyright notice, 
 +' this list of conditions and the following disclaimer. 
 +' - Redistributions in binary form must reproduce the above copyright notice, 
 +' this list of conditions and the following disclaimer in the documentation 
 +' and/or other materials provided with the distribution. 
 +' - Neither the name of Roos-IT nor the names of its contributors 
 +' may be used to endorse or promote products derived from this software without 
 +' specific prior written permission. 
 +'
 +' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY 
 +' EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 
 +' OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT 
 +' SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 
 +' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT 
 +' OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 
 +' HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR 
 +' TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, 
 +' EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 +'
 +' VERSION HISTORY:
 +' 0.1 - Initial Release
 +' 0.2 - fixe one engine with all status report
 +' 0.3 - fixe more engines with all status report
 +' 0.4 - fixe one engine with own status report
 +' 0.5 - fixe more engines with own status report
 +' 0.6 - counters for Admins
 +' 0.7 - page status warning by engines
 +' 0.8 - HTML layout dressing
 +' 0.9 - now change the page name in bb
 +' 1.0 - changed external path, read from registry
 +'
 +' 1.5 - script modified and updated for use with MS
 +' Forefront Server for Exchange 2007 and new
 +' engines.
 +'
 +'==========================================================================================================
 +
 +'---Dimensionering.
 + Dim zPageName,zRevChk,zPageStatus,zDateDiff,zOutFile,zRedChk,zYellowChk,zRedChk1,zYellowChk1,zShell,zExtPath,zFSO
 + Dim aShell,aDef,aDate,aVer,aRev,aNDate,aToday,aTime,aEng,aRevDef
 + Dim bShell,bDef,bDate,bVer,bRev,bNDate,bToday,bTime,bEng,bRevDef
 + Dim cShell,cDef,cDate,cVer,cRev,cNDate,cToday,cTime,cEng,cRevDef
 + Dim dShell,dDef,dDate,dVer,dRev,dNDate,dToday,dTime,dEng,dRevDef
 + Dim eShell,eDef,eDate,eVer,eRev,eNDate,eToday,eTime,eEng,eRevDef
 + Dim fShell,fDef,fDate,fVer,fRev,fNDate,fToday,fTime,fEng,fRevDef
 + Dim gShell,gDef,gDate,gVer,gRev,gNDate,gToday,gTime,gEng,gRevDef
 + Dim hShell,hDef,hDate,hVer,hRev,hNDate,hToday,hTime,hEng,hRevDef
 + Dim iShell,iDef,iDate,iVer,iRev,iNDate,iToday,iTime,iEng,iRevDef
 + Dim jShell,jDef,jDate,jVer,jRev,jNDate,jToday,jTime,jEng,jRevDef
 + Dim oShell,oDef,oDate,oVer,oRev,oNDate,oToday,oTime,oEng,oRevDef
 +
 +'***********************************Begin configurable counters for Admins***********************************
 +
 +'    ---How many days before the engine defintion files expire and the warning status will change.
 + zRevChk = 7
 +
 +'---Warning levels for expired definition files.
 +'   * how many engines are out of date to change the page status to yellow
 + zYellowChk = 2
 +'   * how many engines are out of date to change the page status to red
 + zRedChk = 4
 +
 +'---Change the following path to point to your BBWin EXTERNALPATH location if the registry read does not work.
 +'---There is a "'" in front of the line you don't want tot use.
 + Set zShell = WScript.CreateObject("Wscript.Shell")
 + zExtPath = zShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\BBWin\tmppath")
 +' Const zExtPath = "D:\Program Files (x86)\BBWin\tmp"
 +
 +'---Name of the header on page
 + zPageName = "fse"
 +
 +'***********************************End configurable counters for Admins***********************************
 +
 +'---Create BB object.
 + Set zFSO= CreateObject("Scripting.FileSystemObject")
 +
 +'---Create Output file.
 + Set zOutFile = zFSO.CreateTextFile (zExtPath &"\"& zPageName)
 +
 +'---resetting counters
 + zPageStatus = 0
 +
 +'---Check Virus Def Date by reading value from registry for AhnLab V3 Engine
 + Set oShell = WScript.CreateObject("Wscript.Shell")
 + oRev = oShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\AhnLab\Signature Version")
 + oEng = oShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\AhnLab\Engine Version")
 + oDef = oShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\AhnLab\Last Updated")
 + oVer = Right(oDef,19)
 + oTime = Right(oVer,8)
 + oDate = Left(oVer,8)
 + oYear = Mid(oDate,6,2)
 + oMonth = Left(oDate,2)
 + oDay = Mid(oDate,3,2)
 + oNDate = oVer
 + oToday = FormatDateTime(Now, vbShortDate)
 +'---Determine age of virus definitions, if more thn 7 days old display yellow on BB
 + oDateDiff = DateDiff("d", oNDate, oToday)
 + If (oDateDiff > zRevChk) then 
 + oRevDef = "<IMG SRC=/hobbit/gifs/yellow.gif ALT=yellow HEIGHT=16 WIDTH=16 BORDER=0>"
 + Else oRevDef = "<IMG SRC=/hobbit/gifs/green.gif ALT=green HEIGHT=16 WIDTH=16 BORDER=0>"
 + End If
 +
 +'---Check Virus Def Date by reading value from registry for CA Vet
 + Set bShell = WScript.CreateObject("Wscript.Shell")
 + bRev = bShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\CAVet\Signature Version")
 + bEng = bShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\CAVet\Engine Version")
 + bDef = bShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\CAVet\Last Updated")
 + bVer = Right(bDef,19)
 + bTime = Right(bVer,8)
 + bDate = Left(bVer,8)
 + bYear = Mid(bDate,6,2)
 + bMonth = Left(bDate,2)
 + bDay = Mid(bDate,3,2)
 + bNDate = bVer
 + bToday = FormatDateTime(Now, vbShortDate)
 +'---Determine age of virus definitions, if more thn 7 days old display yellow on BB
 + bDateDiff = DateDiff("d", bNDate, bToday)
 + If (bDateDiff > zRevChk) then 
 + bRevDef = "<IMG SRC=/hobbit/gifs/yellow.gif ALT=yellow HEIGHT=16 WIDTH=16 BORDER=0>"
 + Else bRevDef = "<IMG SRC=/hobbit/gifs/green.gif ALT=green HEIGHT=16 WIDTH=16 BORDER=0>"
 + End If
 +
 +'---Check Virus Def Date by reading value from registry for Command
 + Set cShell = WScript.CreateObject("Wscript.Shell")
 + cRev = cShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Command\Signature Version")
 + cEng = cShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Command\Engine Version")
 + cDef = cShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Command\Last Updated")
 + cVer = Right(cDef,19)
 + cTime = Right(cVer,8)
 + cDate = Left(cVer,8)
 + cYear = Mid(cDate,6,2)
 + cMonth = Left(cDate,2)
 + cDay = Mid(cDate,3,2)
 + cNDate = cVer
 + cToday = FormatDateTime(Now, vbShortDate)
 +'---Determine age of virus definitions, if more thn 7 days old display yellow on BB
 + cDateDiff = DateDiff("d", cNDate, cToday)
 + If (cDateDiff > zRevChk) then 
 + cRevDef = "<IMG SRC=/hobbit/gifs/yellow.gif ALT=yellow HEIGHT=16 WIDTH=16 BORDER=0>"
 + Else cRevDef = "<IMG SRC=/hobbit/gifs/green.gif ALT=green HEIGHT=16 WIDTH=16 BORDER=0>"
 + End If
 +
 +'---Check Virus Def Date by reading value from registry for Kaspersky
 + Set dShell = WScript.CreateObject("Wscript.Shell")
 + dRev = dShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Kaspersky5\Signature Version")
 + dEng = dShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Kaspersky5\Engine Version")
 + dDef = dShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Kaspersky5\Last Updated")
 + dVer = Right(dDef,19)
 + dTime = Right(dVer,8)
 + dDate = Left(dVer,8)
 + dYear = Mid(dDate,6,2)
 + dMonth = Left(dDate,2)
 + dDay = Mid(dDate,3,2)
 + dNDate = dVer
 + dToday = FormatDateTime(Now, vbShortDate)
 +'---Determine age of virus definitions, if more thn 7 days old display yellow on BB
 + dDateDiff = DateDiff("d", dNDate, dToday)
 + If (dDateDiff > zRevChk) then 
 + dRevDef = "<IMG SRC=/hobbit/gifs/yellow.gif ALT=yellow HEIGHT=16 WIDTH=16 BORDER=0>"
 + Else dRevDef = "<IMG SRC=/hobbit/gifs/green.gif ALT=green HEIGHT=16 WIDTH=16 BORDER=0>"
 + End If
 +
 +
 +'---Check Virus Def Date by reading value from registry for Norman Data Defense
 + Set fShell = WScript.CreateObject("Wscript.Shell")
 + fRev = fShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Norman\Signature Version")
 + fEng = fShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Norman\Engine Version")
 + fDef = fShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Norman\Last Updated")
 + fVer = Right(fDef,19)
 + fTime = Right(fVer,8)
 + fDate = Left(fVer,8)
 + fYear = Mid(fDate,6,2)
 + fMonth = Left(fDate,2)
 + fDay = Mid(fDate,3,2)
 + fNDate = fVer
 + fToday = FormatDateTime(Now, vbShortDate)
 +'---Determine age of virus definitions, if more thn 7 days old display yellow on BB
 + fDateDiff = DateDiff("d", fNDate, fToday)
 + If (fDateDiff > zRevChk) then 
 + fRevDef = "<IMG SRC=/hobbit/gifs/yellow.gif ALT=yellow HEIGHT=16 WIDTH=16 BORDER=0>"
 + Else fRevDef = "<IMG SRC=/hobbit/gifs/green.gif ALT=green HEIGHT=16 WIDTH=16 BORDER=0>"
 + End If
 +
 +'---Check Virus Def Date by reading value from registry for Sophos Anti-Virus
 + Set gShell = WScript.CreateObject("Wscript.Shell")
 + gRev = gShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Sophos\Signature Version")
 + gEng = gShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Sophos\Engine Version")
 + gDef = gShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\Sophos\Last Updated")
 + gVer = Right(gDef,19)
 + gTime = Right(gVer,8)
 + gDate = Left(gVer,8)
 + gYear = Mid(gDate,6,2)
 + gMonth = Left(gDate,2)
 + gDay = Mid(gDate,3,2)
 + gNDate = gVer
 + gToday = FormatDateTime(Now, vbShortDate)
 +'---Determine age of virus definitions, if more thn 7 days old display yellow on BB
 + gDateDiff = DateDiff("d", gNDate, gToday)
 + If (gDateDiff > zRevChk) then 
 + gRevDef = "<IMG SRC=/hobbit/gifs/yellow.gif ALT=yellow HEIGHT=16 WIDTH=16 BORDER=0>"
 + Else gRevDef = "<IMG SRC=/hobbit/gifs/green.gif ALT=green HEIGHT=16 WIDTH=16 BORDER=0>"
 + End If
 +
 +'---Check Virus Def Date by reading value from registry for Sybari Worm List
 + Set iShell = WScript.CreateObject("Wscript.Shell")
 + iRev = iShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\WormList\Signature Version")
 + iEng = iShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\WormList\Engine Version")
 + iDef = iShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\WormList\Last Updated")
 + iVer = Right(iDef,19)
 + iTime = Right(iVer,8)
 + iDate = Left(iVer,8)
 + iYear = Mid(iDate,6,2)
 + iMonth = Left(iDate,2)
 + iDay = Mid(iDate,3,2)
 + iNDate = iVer
 + iToday = FormatDateTime(Now, vbShortDate)
 +'---Determine age of virus definitions, if more thn 7 days old display yellow on BB
 + iDateDiff = DateDiff("d", iNDate, iToday)
 + If (iDateDiff > zRevChk) then 
 + iRevDef = "<IMG SRC=/hobbit/gifs/yellow.gif ALT=yellow HEIGHT=16 WIDTH=16 BORDER=0>"
 + Else iRevDef = "<IMG SRC=/hobbit/gifs/green.gif ALT=green HEIGHT=16 WIDTH=16 BORDER=0>"
 + End If
 +
 +'---Check Virus Def Date by reading value from registry for Virus Buster
 + Set jShell = WScript.CreateObject("Wscript.Shell")
 + jRev = jShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\VBuster\Signature Version")
 + jEng = jShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\VBuster\Engine Version")
 + jDef = jShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Forefront Server Security\Exchange Server\Scan Engines\VBuster\Last Updated")
 + jVer = Right(jDef,19)
 + jTime = Right(jVer,8)
 + jDate = Left(jVer,8)
 + jYear = Mid(jDate,6,2)
 + jMonth = Left(jDate,2)
 + jDay = Mid(jDate,3,2)
 + jNDate = jVer
 + jToday = FormatDateTime(Now, vbShortDate)
 +'---Determine age of virus definitions, if more thn 7 days old display yellow on BB
 + jDateDiff = DateDiff("d", jNDate, jToday)
 + If (jDateDiff > zRevChk) then 
 + jRevDef = "<IMG SRC=/hobbit/gifs/yellow.gif ALT=yellow HEIGHT=16 WIDTH=16 BORDER=0>"
 + Else jRevDef = "<IMG SRC=/hobbit/gifs/green.gif ALT=green HEIGHT=16 WIDTH=16 BORDER=0>"
 + End If
 +
 +
 +'---determine page error status
 + If (oDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (aDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (bDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (cDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (dDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (eDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (fDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (gDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (hDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (iDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 + If (jDateDiff > zRevChk) then 
 + zPageStatus = zPageStatus + 1
 + Else zPageStatus = zPageStatus
 + End If
 +
 +'---Page status to green, yellow or red
 + If (zPageStatus > zYellowChk) then 
 + zDateDiff = "yellow+25h"
 + If (zPageStatus > zRedChk) then 
 + zDateDiff = "red+25h"
 + End If
 +   Else zDateDiff = "green+25h"
 + End If
 +
 +
 +'---write results to file
 +zOutFile.WriteLine zDateDiff & vbCrLf
 +zOutFile.WriteLine vbCrLf &"<b><font size=3>Found Forefront Security v1 for Exchange 2007</font></b>" & vbCrLf
 +zOutFile.WriteLine zPageStatus & " Virus Scanner definition file(s) is/are out of date" & vbCrLf & vbCrLf
 +
 + zOutFile.WriteLine "<b><font size=3 color=#008CEA>AhnLab V3 Engine</font></b>"
 + zOutFile.WriteLine oRevDef & " Engine version: " & vbTab & oEng
 + zOutFile.WriteLine oRevDef & " Definition version: " & vbTab & oRev & vbTab &" date: "& oNDate
 + zOutFile.WriteLine "   Virus definitions are "& oDateDiff &" day(s) old" & vbCrLf
 +
 + zOutFile.WriteLine "<b><font size=3 color=#008CEA>CA Vet</font></b>"
 + zOutFile.WriteLine bRevDef & " Engine version: " & vbTab & bEng
 + zOutFile.WriteLine bRevDef & " Definition version: " & vbTab & bRev & vbTab &" date: "& bNDate
 + zOutFile.WriteLine "   Virus definitions are "& bDateDiff &" day(s) old" & vbCrLf
 +
 + zOutFile.WriteLine "<b><font size=3 color=#008CEA>Command</font></b>"
 + zOutFile.WriteLine cRevDef & " Engine version: " & vbTab & cEng
 + zOutFile.WriteLine cRevDef & " Definition version: " & vbTab & cRev & vbTab &" date: "& cNDate
 + zOutFile.WriteLine "   Virus definitions are "& cDateDiff &" day(s) old" & vbCrLf
 +
 + zOutFile.WriteLine "<b><font size=3 color=#008CEA>Kaspersky</font></b>"
 + zOutFile.WriteLine dRevDef & " Engine version: " & vbTab & dEng
 + zOutFile.WriteLine dRevDef & " Definition version: " & vbTab & dRev & vbTab &" date: "& dNDate
 + zOutFile.WriteLine "   Virus definitions are "& dDateDiff &" day(s) old" & vbCrLf
 +
 + zOutFile.WriteLine "<b><font size=3 color=#008CEA>Norman Data Defense</font></b>"
 + zOutFile.WriteLine fRevDef & " Engine version: " & vbTab & fEng
 + zOutFile.WriteLine fRevDef & " Definition version: " & vbTab & fRev & vbTab & vbTab &" date: "& fNDate
 + zOutFile.WriteLine "   Virus definitions are "& fDateDiff &" day(s) old" & vbCrLf
 +
 + zOutFile.WriteLine "<b><font size=3 color=#008CEA>Sophos Anti-Virus</font></b>"
 + zOutFile.WriteLine gRevDef & " Engine version: " & vbTab & gEng
 + zOutFile.WriteLine gRevDef & " Definition version: " & vbTab & gRev & vbTab & vbTab &" date: "& gNDate
 + zOutFile.WriteLine "   Virus definitions are "& gDateDiff &" day(s) old" & vbCrLf
 +
 + zOutFile.WriteLine "<b><font size=3 color=#008CEA>Sybari Worm List</font></b>"
 + zOutFile.WriteLine iRevDef & " Engine version: " & vbTab & iEng
 + zOutFile.WriteLine iRevDef & " Definition version: " & vbTab & iRev & vbTab &" date: "& iNDate
 + zOutFile.WriteLine "   Virus definitions are "& iDateDiff &" day(s) old" & vbCrLf
 +
 + zOutFile.WriteLine "<b><font size=3 color=#008CEA>Virus Buster</font></b>"
 + zOutFile.WriteLine jRevDef & " Engine version: " & vbTab & jEng
 + zOutFile.WriteLine jRevDef & " Definition version: " & vbTab & jRev & vbTab & vbTab &" date: "& jNDate
 + zOutFile.WriteLine "   Virus definitions are "& jDateDiff &" day(s) old" & vbCrLf & vbCrLf & vbCrLf
 +
 +
 + zOutFile.WriteLine "<font size=1 color=#33CCCC><p align=right>" & ZpageName & " script updated by stenhouseconsulting.com</p></font>"
 +
 +'---Close log file
 + zOutFile.Close
 +
 +</code>
 +</hidden>
 +
 +===== Known  Bugs and Issues =====
 +
 +===== To Do =====
 +
 +===== Credits =====
 +
 +[[ http://www.deadcat.net/viewfile.php?fileid=924 | BBantigen-V8.vbs ]]
 +
 +===== Changelog =====
 +
 +  * **2007-07-12**
 +    * Initial release
  
  • monitors/forefront.txt
  • Last modified: 2009/11/23 05:48
  • by 127.0.0.1