code:
; ******************************* McAfee NetShield Section *********************************** $McAfeeRegKey="HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\VirusScan"
$McAfeeEngKey="HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\VirusScan\Tasks\Upgrade"
$McAfeeAltKey="HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\AlertManager\Recipients"
$HKLMSMVSDT="HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\VirusScan\McShield\CurrentVersion"
$prd=readvalue("$McAfeeRegKey", "szProductVer")
$eng=readvalue("$McAfeeRegKey", "szEngineVer")
$dat=readvalue("$McAfeeRegKey", "szVirDefVer")
$Mcdate=readvalue("$McAfeeRegKey", "szVirDefDate")
$mceng=READVALUE("$McAfeeEngKey", "szUpgradeCMD")
$mcexe=READVALUE("$McAfeeRegKey", "szUpdateEXE")
$datdir=readvalue("$McAfeeRegKey","DAT")
$scanner=readvalue("$McAfeeRegKey","scan32exe")
$exts=readvalue("$HKLMSMVSDT","szProgExts")
$runscan=0
$datupdate=0
$McEngine ="4.0.70"
$DatPath="$server"+"\mcafee$$\WinNT\Update"
$EngPath="$server"+"\mcafee$$\WinNT\Upgrade"
$95McAfeeDat="4.0.4080"
$95McEngine ="4.0.70"
$95DatPath="$server"+"\mcafee$$\Win95\Update"
$95EngPath="$server"+"\mcafee$$\Win95\Upgrade"
; ****************************** Default Program Extensions Section *****************************
; will scan for viruses with VB or SHS scripting
if instr("$exts","VB?")=0
$exts=$exts+" VB?"
$newexts=writevalue("$HKLMSMVSDT","szProgExts","$exts",REG_SZ)
$newexts=writevalue("$HKLMSMVSDT","szDefProgExts","$exts",REG_SZ)
$newexts=writevalue("$HKLMSMVSDT","bScanAllFiles","0",REG_DWORD)
endif
if instr("$exts","SHS")=0
$exts=$exts+" SHS"
$newexts=writevalue("$HKLMSMVSDT","szProgExts","$exts",REG_SZ)
$newexts=writevalue("$HKLMSMVSDT","szDefProgExts","$exts",REG_SZ)
$newexts=writevalue("$HKLMSMVSDT","bScanAllFiles","0",REG_DWORD)
endif
; ********************************** Upgrade Engine Section ***********************************
? " Installed "color c+/n"McAfee NetShield "color w/n"is version " color w+/n $prd color w/n " engine "color w+/n $eng color w/n
if $eng<$McEngine
$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"
$runscan=1
endif
; ********************************** Upgrade DAT Section ***********************************
? " 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
$datver1=substr("$dat",5,4)
$datver2=substr("$dat",3,4)
if instr("$datver1",".")=0
$datver=$datver1
else
$datver=$datver2
endif
$datfile=dir("$datpath\dat*.zip")
while $datfile<>"" and @error=0 and $datupdate=0
$datfilever=substr("$datfile",5,4)
if $datfilever>$datver
? color g+/n" Updating Antivirus signatures" color w/n
$RET=WRITEVALUE("$McAfeeRegKey"+"\Tasks\Update", "szUpdateUncLocation", "$DatPath", "REG_SZ")
$RET=WRITEVALUE("$McAfeeRegKey"+"\Tasks\Update", "uUpdateFrom", "1", "REG_DWORD")
shell "$mcexe /task update"
$runscan=1
$datupdate=1
; ********************************* Alert Recipients Section *********************************
$Rep='Priority Level:"1" Type:"Network Message" Recipient:"\\'
$ret=writevalue("$McAfeeAltKey","Recipient0","$rep"+$dcsa+chr(34),"REG_SZ")
$ret=delvalue("$McAfeeAltKey","Recipient1")
endif
$datfile=dir()
loop
; ************************************* Extra DAT Section ************************************
$dattime=comparefiletimes("$datpath"+"\extra.dat","$datdir"+"extra.dat")
if $dattime=-3 or $dattime=1
shell("%comspec% /c net stop mcshield >nul")
copy "$datpath"+"\extra.dat" "$datdir"
if @error=0
? color g+/n " Extra Dat loaded" color w/n
$runscan=1
endif
shell("%comspec% /c net start mcshield >nul")
endif
; ********************************** Run Silent Scan Section **********************************
if $runscan=1
run ("$scanner"+" /uinone /clean /delete /exit")
? color g+/n " Starting Virus Scan" color w/n
endif
