Looking for a smarter way to determin AV

[CartoonDragon]

Hey guys

I've been making a script to figure out which Antivirus there is installed on a pc. The idea is to document which antivirus our students have on their pc's, and report in a logfile. But while making it, i figured, there has to be a better/easier/faster way of doing this? any help would very apprisiated.

expandcollapse popup

$LogFile = "Detect_AV.log"
$Date = @YEAR & "-" & @MON & "-" & @MDAY & " " & @hour & ":" & @MIN & ":" & @SEC
$Detect_AV = True

If $Detect_AV = True Then

;~ Detect OfficeScan
    If ProcessExists("PccNTMon.exe") Then 
    $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: OfficeScan Found")
    EndIf

;~ Detect Avast
    If ProcessExists("AvastUI.exe") Then 
    $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: Avast Found")
    EndIf

;~ Detect AVG 9.0 fuld
    If ProcessExists("avgwdsvc.exe") and ProcessExists("avgam.exe") and not ProcessExists("avgfws9.exe") Then 
    $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: AVG 9.0 Fuld Found")
    EndIf

;~ Detect AVG 9.0 Internet security
    If ProcessExists("avgfws9.exe") Then 
    $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: AVG 9.0 Internet security Found")
    EndIf

;~ Detect AVG 9.0 Free
    If ProcessExists("avgwdsvc.exe") and not ProcessExists("avgam.exe") Then 
    $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: AVG 9.0 Free fundet på pc")
    EndIf

;~ Detect Norton 2010 produkt
    If ProcessExists("ccSvcHst.exe") Then
        If FileExists("C:\programmer\Norton 360") Then
        $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: Norton 360 2010 fundet på pc")
        EndIf
            If FileExists("C:\programmer\Norton AntiVirus") Then
            $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: Norton Antivirus 2010 fundet på pc")
            EndIf
                If FileExists("C:\programmer\Norton Internet Security") Then
                $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: Norton Internet Security 2010 fundet på pc")
                EndIf
    EndIf

;~ Detect ZoneAlarm produkt
    If ProcessExists("zlclient.exe") and not ProcessExists("ForceField.exe") and not ProcessExists("mantispm.exe") Then
    $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: ZoneAlarm Anti-Virus fundet på pc")
    EndIf
    
    If ProcessExists("zlclient.exe") and ProcessExists("ForceField.exe") Then
    $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: ZoneAlarm Extreme Security fundet på pc")
    EndIf

    If ProcessExists("zlclient.exe") and ProcessExists("mantispm.exe") and not ProcessExists("ForceField.exe") Then
    $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: ZoneAlarm Security Suite fundet på pc")
    EndIf
     

Else
    $LogWrite = LogWrite($LogFile,"1","Antivirus/Firewall: Søgning ikke slået til")
EndIf


Func LogWrite($LogFile, $Status, $Besked)
$file = FileOpen($LogFile, 1)

; Check if file opened for writing OK

If $file = -1 Then
    MsgBox(0, "Fejl", "Kan ikke åbne logfil.")
    Exit
EndIf

FileWriteLine($file,$Date & "," & $Status & "," & $Besked)
;FileWriteLine($file, "Line2" & @CRLF)
;FileWriteLine($file, "Line3")

FileClose($file)

EndFunc

[bluerein]

think this works

http://www.autoitscript.com/forum/index.php?showtopic=36731&view=findpost&p=600350

edit... works on win 7 anyway