Here is the changes I made to correctly identify netshield 4.5, Viruscan 4.5 and Enterprise 7.0 machines
Changed in the check click function
code:
if $p[1]=1
$eng=readvalue("\\$computer\$vsengine","szEngineVer")
if @error $eng="Unavailable" endif
$dat=readvalue("\\$computer\$vsengine","szDatVersion")
if @error $dat="Unavailable" endif
$Item.SubItems(1).Text=$eng
$Item.SubItems(2).Text=$dat
else
$Item.SubItems(1).Text="Offline"
endif
$item.selected = 0
next
to
code:
if $p[1]=1
$HKEYTVD = "\\$computer\HKEY_LOCAL_MACHINE\SOFTWARE\Network Associates\TVD\"
Select
; #### Check if installed Viruscan Multiplatform version 4.5.x.xxxx
Case ExistKey($HKEYTVD + "VirusScan") = 0
$regver = ReadValue($HKEYTVD + "Shared Components\VirusScan Engine\4.0.xx","szDatVersion")
$engver = ReadValue($HKEYTVD + "Shared Components\VirusScan Engine\4.0.xx","szEngineVer")
; #### Check if NetShield 4.5.x.xxxx installed
Case ExistKey($HKEYTVD + "NetShield NT") = 0
$regver = ReadValue($HKEYTVD + "NetShield NT\CurrentVersion","szVirDefVer")
$engver = ReadValue($HKEYTVD + "NetShield NT\CurrentVersion","szEngineVer")
; #### Check if installed Viruscan Enterprise Version 7.0.0.xxx
Case ExistKey($HKEYTVD + "VirusScan Enterprise") = 0
$regver = ReadValue($HKEYTVD + "Shared Components\VirusScan Engine\4.0.xx","szVirDefVer")
$engver = ReadValue($HKEYTVD + "Shared Components\VirusScan Engine\4.0.xx","szEngineVer")
; #### DEFAULT WHEN AN OUTDATED VERSION OR NO MCAFEE CAN BE FOUND
Case 1
$REGVER = "Unavailable"
$ENGVER = "Unavailable"
EndSelect
; corrects the Dat Version on different install versions to match the same format.
If $regver > 4000 AND $Regver <> "Unavailable"
$regver = "4.0." + $regver
Else
If $regver < 1
$regver = "4." + SubStr($Regver,1,6)
EndIf
EndIf
$eng=$Engver
$dat=$regver
$Item.SubItems(1).Text=$eng
$Item.SubItems(2).Text=$dat
Else
$Item.SubItems(1).Text="Offline"
EndIf
$item.selected = 0
Next
