; -------------[ McAfee Section ]-----------------------------
$McAfeeDat="4.0.4071"
$McEngine ="4.0.50"
$DatPath="$server"+"\mcafee$$\WinNT\Update"
$EngPath="$server"+"\mcafee$$\WinNT\Upgrade"
$95McAfeeDat="4.0.4071"
$95McEngine ="4.0.50"
$95DatPath="$server"+"\mcafee$$\Win95\Update"
$95EngPath="$server"+"\mcafee$$\Win95\Upgrade"
; ******************************* McAfee NetShield Section ***********************************
$eng=readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\VirusScan", "szEngineVer")
if @error
? color r+/n " McAfee NetShield is not installed" color w/n
shell("$server"+"\mcafee$$\winnt\install\setup.exe -s")
else
; ********************************** Upgrade Engine Section ***********************************
? " Installed "color c+/n"McAfee NetShield "color w/n"is version " color w+/n $eng color w/n
if $eng<$McEngine
$McAfeeEngKey="HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\VirusScan\Tasks\Upgrade"
$mceng=READVALUE("$McAfeeEngKey", "szUpgradeCMD")
$RET=WRITEVALUE("$McAfeeEngKey", "szUpdateUncLocation", "$EngPath", "REG_SZ")
$RET=WRITEVALUE("$McAfeeEngKey", "uUpdateFrom", "1", "REG_DWORD")
? color g+/n" The Antivirus Program on your computer is being updated" color w/n
shell "$engpath"+"\"+"$mceng"
endif
; *********************************** Update DAT Section *************************************
$dat=readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\VirusScan", "szVirDefVer")
$Mcdate=readvalue("HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\VirusScan", "szVirDefDate")
? " Installed "color c+/n"McAfee DAT "color w/n"is version " color w+/n $dat color w/n " dated " color w+/n $Mcdate color w/n
if $dat<$McAfeeDat
? color g+/n" Updating Antivirus signatures" color w/n
$McAfeeRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\VirusScan"
$mcexe=READVALUE("$McAfeeRegKey", "szUpdateEXE")
$RET=WRITEVALUE("$McAfeeRegKey"+"\Tasks\Update", "szUpdateUncLocation", "$DatPath", "REG_SZ")
$RET=WRITEVALUE("$McAfeeRegKey"+"\Tasks\Update", "uUpdateFrom", "1", "REG_DWORD")
shell "$mcexe /task update"
; ********************************* Alert Recipients Section *********************************
$McAfeeAltKey="HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\AlertManager\Recipients"
$Rep='Priority Level:"1" Type:"Network Message" Recipient:"\\'
$ret=writevalue("$McAfeeAltKey","Recipient0","$rep"+%areamis%+chr(34),"REG_SZ")
$ret=writevalue("$McAfeeAltKey","Recipient1","$rep"+$dcsa+chr(34),"REG_SZ")
endif
endif