Here is a version that should work for you as far as the information. As far a pulling it and getting it from all the PC in your Domain and putting it into a text file, well you'll need to do some reading and searching in order to understand what all is needed. Rad's McAfee Manager could be one way but don't recall if it exports the data or not. Also something to consider is that not all systems will be reachable at all times so the accuracy of the numbers will always be in question as well without accurate numbers of your current systems.
Code:
Break On
Dim $SO,$McAfeeInfo,$Pause
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')
$McAfeeInfo=GetMcAfeeAV()
If VarType($McAfeeInfo)<>8
?'Product Version '+$McAfeeInfo[0]
?'DAT Number '+$McAfeeInfo[1]
?'Engine '+$McAfeeInfo[2]
?'Product ' + $McAfeeInfo[3]
?'ePO ' + $McAfeeInfo[4]
Else
?'McAfee AV not detected...'
EndIf
Color 'r/w'
?? 'Completed. Press a key to continue...'
Get $Pause
Function GetMcAfeeAV()
Dim $AVMcafee,$Tvd,$PName,$DatNum,$AVEngine,$Product,$Key,$ePO
$AVMcafee = 'HKLM\SOFTWARE\McAfee\VirusScan'
$Tvd = 'HKLM\SOFTWARE\Network Associates\TVD'
$Key = 'HKLM\SOFTWARE\Network Associates\ePolicy Orchestrator\Agent'
$ePO = KeyExist($Key)
If $ePO
$Key = 'HKLM\SOFTWARE\Network Associates\ePolicy Orchestrator\Application Plugins\EPOAGENT3000'
$ePO = ReadValue($Key, 'Version')
If Not $ePO $ePO='Unknown' EndIf
Else
$ePO =""
EndIf
Select
Case KeyExist($Tvd+'\VirusScan Enterprise\CurrentVersion')
; VS70 - Works with 7.0, 7.1, 8.0
$PName = 'VirusScan Enterprise'
$DatNum = 'DAT File Version: ' + ReadValue($Tvd+'\VirusScan Enterprise\CurrentVersion','szVirDefVer')
$AVEngine = 'Engine Version: ' + ReadValue($Tvd+'\Shared Components\VirusScan Engine\4.0.xx','szEngineVer')
$Product = 'Product Version: ' + ReadValue($Tvd+'\VirusScan Enterprise\CurrentVersion','szProductVer')
Case KeyExist($Tvd+'\VirusScan')
; VS451
$PName = 'VirusScan 4.51'
$Datnum = 'DAT File Version:=' + SubStr(ReadValue($Tvd+'\Shared Components\VirusScan Engine\4.0.xx','szDatVersion'),5,4)
$AVEngine = 'Engine Version:=' + ReadValue($Tvd+'\Shared Components\VirusScan Engine\4.0.xx','szEngineVer')
$Product = 'Product Version:=' + ReadValue($Tvd+'\VirusScan','szCurrentVersionNumber')
Case KeyExist($Tvd+'\Netshield NT\CurrentVersion')
; NS45
$PName = 'NetShield NT 4.5'
$Datnum = 'DAT File Version:=' + SubStr(ReadValue($Tvd+'\Netshield NT\CurrentVersion','szVirDefVer'),5,4)
$AVEngine = 'Engine Version:=' + ReadValue($Tvd+'\Netshield NT\CurrentVersion','szEngineVer')
$Product = 'Product Version:=' + ReadValue($Tvd+'\Netshield NT\CurrentVersion','szProductVer')
Case KeyExist('HKLM\SOFTWARE\Network Associates\NetShield NT')
; NS403a
$PName = 'NetShield NT 4.03a'
$Datnum = 'DAT File Version:=' + SubStr(ReadValue($AVMcafee,'szVirDefVer'),5,4)
$AVEngine = 'Engine Version:=' + ReadValue($AVMcafee,'szEngineVer')
$Product = 'Product Version:=' + ReadValue($AVMcafee,'szProductVer')
EndSelect
$GetMcAfeeAV = $PName,$DatNum,$AVEngine,$Product,$ePO
EndFunction