CLS

 BREAK ON

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

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

 ;*************************************************************** 

 ; Determine Virus Product Version and retrieve variable settings 

 ;*************************************************************** 

 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



 ?'Product Version '+$Product

 ?'DAT Number '+$Datnum

 ?'Engine '+$engine



GET $K