debug off

break on

dim $iRC,$McAfeeInfo

$iRC=setoption('Explicit','on')

$iRC=setoption('NoVarsInStrings','on')

$iRC=setoption('WrapAtEOL','on')



$McAfeeInfo=GetMcAfeeVirusInfo()

?'Product Version '+$McAfeeInfo[0]

?'DAT Number '+$McAfeeInfo[1]

?'Engine '+$McAfeeInfo[2]



function GetMcAfeeVirusInfo()

dim $mcafee,$tvd,$datnum,$engine,$product,$McAfeeArray[3]

$mcafee='HKLM\SOFTWARE\McAfee\VirusScan'

$tvd='HKLM\SOFTWARE\Network Associates\TVD'

select

  case

    ;NS403a  

    keyexist('HKLM\SOFTWARE\Network Associates\NetShield NT')

    $datnum=substr(readvalue($mcafee,'szVirDefVer'),5,4)

    $engine=readvalue($mcafee,'szEngineVer')

    $product=readvalue($mcafee,'szProductVer')

  case

    ;NS45  

    keyexist($tvd+'\Netshield NT\CurrentVersion')

    $datnum=substr(readvalue($tvd+'\Netshield NT\CurrentVersion','szVirDefVer'),5,4)

    $engine=readvalue($tvd+'\Netshield NT\CurrentVersion','szEngineVer')

    $product=readvalue($tvd+'\Netshield NT\CurrentVersion','szProductVer')

  case

    ;VS451  

    keyexist($tvd+'\VirusScan')

    $datnum=substr(readvalue($tvd+'\Shared Components\VirusScan Engine\4.0.xx','szDatVersion'),5,4)

    $engine=readvalue($tvd+'\Shared Components\VirusScan Engine\4.0.xx','szEngineVer')

    $product=readvalue($tvd+'\VirusScan','szCurrentVersionNumber')

  case

    ;VS70 - Works with 7.0 and 7.1  

    keyexist($tvd+'\VirusScan Enterprise\CurrentVersion')

    $datnum=readvalue($tvd+'\VirusScan Enterprise\CurrentVersion','szVirDefVer')

    $engine=readvalue($tvd+'\Shared Components\VirusScan Engine\4.0.xx','szEngineVer')

    $product=readvalue($tvd+'\VirusScan Enterprise\CurrentVersion','szProductVer')

  case

    1

endselect

 $McAfeeArray[0]=$Product

 $McAfeeArray[1]=$Datnum

 $McAfeeArray[2]=$engine

 $GetMcAfeeVirusInfo=$McAfeeArray

endfunction