McAfee 4.0.2 Update
Keywords: mcafee installation
; McAfee 4.0.2 Update
; NT Compatible
; Written by Todd Thorson Comdisco Distributed Services
; Last Mod Date 1/18/1999
Errormode(@off)
NT = "NO"
WinVer = WinMetrics(-4)
If WinVer == 4 then NT = "YES"
If NT == "NO" then
If FileExist("C:\Program Files\Network Associates\McAfee VirusScan\Scan.dat") == @FALSE then exit
MachFile=FileTimeCode("C:\Program Files\Network Associates\McAfee VirusScan\Scan.dat")
MachDir = "C:\Program Files\Network Associates\McAfee VirusScan"
Else
If FileExist("C:\Program Files\Network Associates\VirusScan NT\Scan.dat") == @FALSE then exit
MachFile=FileTimeCode("C:\Program Files\Network Associates\VirusScan NT\Scan.dat")
MachDir = "C:\Program Files\Network Associates\VirusScan NT"
ENDIF
SrvrFile=FileTimeCode("X:\DSmenu\McDats\Scan.DAT")
If MachFile == SrvrFile then EXIT
If MachFile > SrvrFile then EXIT
LastMod="3/29/1999"
LANID=Environment("ln")
FileSvr=Environment("fs")
AppSvr=Environment("asvr")
FullName=Environment("FN")
TD=TimeDate()
Owner=Environment("owner")
Psvr=Environment("psvr")
RAM=((WinResources(11))/1024)/1000
free=(DiskFree("c")/1024)/1000
page=((WinResources(14))/1024)/1024
spc=DiskInfo("c",1)
bps=DiskInfo("c",2)
nfc=DiskInfo("c",3)
tnc=DiskInfo("c",4)
bpc=spc*bps
CYAN="0,255,255"
BLUE="0,0,255"
DKBLUE="0,0,128"
LTGRAY="192,192,192"
GRAY="128,128,128"
GREEN="0,255,0"
YELLOW="255,255,0"
FAMILY=16
FONT="Arial"
DKGRAY="64,64,64"
RED="255,0,0"
BLACK="0,0,0"
WHITE="255,255,255"
WBTVER=VersionDll()
WASH=5
BoxesUp("0,0,1000,1000",@NORMAL)
BoxColor(1,"0,0,127",WASH)
BoxCaption(1,"Comdisco Distributed Services")
BoxDrawRect(1,"0,0,1000,1000",1)
BoxTextFont(1,"%font%",150,80,0|0)
BoxTextColor(1,WHITE)
BoxNew(4,"100,10,900,160",1)
BoxColor(4,LTGRAY,0)
BoxDrawRect(4,"",1)
BoxTextFont(4,"%font%",350,70,0)
BoxTextColor(4,BLUE)
BoxPen(4,WHITE,20)
boxdrawline(4,"0,0,1000,0")
boxdrawline(4,"0,0,0,1000")
BoxPen(4,GRAY,20)
boxdrawline(4,"1000,1000,1000,0")
boxdrawline(4,"0,1000,1000,1000")
BoxPen(4,WHITE,10)
boxdrawline(4,"960,840,960,150")
boxdrawline(4,"40,840,960,840")
BoxPen(4,GRAY,10)
boxdrawline(4,"40,150,960,150")
boxdrawline(4,"40,150,40,840")
If NT == "YES" then
BoxDrawText(4,"70,200,950,400","McAfee 4.x DAT Update NT",1,5)
Else
BoxDrawText(4,"70,200,950,400","McAfee 4.x DAT Update 95/98",1,5)
EndIf
BoxTextFont(1,"%FONT%",36,70,1|%FAMILY%)
BoxDrawText(1,"100,250,900,400","In an effort to protect Comdisco's employees and their data, the latest version of McAfee Virus Scan DAT files will be automatically installed now.",@false,1|16)
BoxTextFont(1,"%FONT%",50,170,1|%FAMILY%)
BoxDrawText(1,"50,800,950,900","The install should last no longer than 5 minutes",@false,1|16)
Delay(5)
BoxNew(2,"200,450,800,750",2)
BoxColor(2,LTGRAY,0)
BoxDrawRect(2,"",2)
BoxCaption(2,"File Copy Progress - Please Wait...")
BoxPen(2,BLACK,30)
boxdrawline(2,"100,550,900,550")
boxdrawline(2,"900,550,900,800")
boxdrawline(2,"900,800,100,800")
boxdrawline(2,"100,800,100,550")
DirChange("X:\DSMENU\McDats")
CFileNames=FileItemize("X:\DSMENU\McDats\*.DAT")
CIndex=itemcount(CFileNames,@TAB)
for CBegin=1 to CIndex
BoxDataTag(2,"TAG2")
BoxColor(2,BLUE,0)
Cxxx= 100+((800*CBegin)/CIndex)
BoxDrawRect(2,"104,554,%Cxxx%,796",2)
BoxColor(2,WHITE,0)
BoxDrawRect(2,"%Cxxx%,554,896,796",2)
BoxColor(2,LTGRAY,0)
BoxTextFont(2,"%FONT%", 100,40,16)
BoxTextColor(2,BLACK)
CFile=ItemExtract(Cbegin,CFileNames,@TAB)
BoxDrawText(2,"100,200,896,500","Now Copying File: %Cfile% ",1,0)
FileCopy("X:\DSMENU\McDats\%CFile%","%MachDir%\*.new",@FALSE)
Delay(0.5)
BoxDataClear(2,"TAG2")
next
RegCreateKey(@REGMACHINE,"software\Comdisco")
RegCreateKey(@REGMACHINE,"software\Comdisco\DistServices")
RegSetValue(@REGMACHINE,"software\Comdisco\DistServices\ServiceHistory[%TD%]","Updated DATS")
If NT == "YES"
IntControl(30,"C:\Program Files\Network Associates\VirusScan NT\SCAN.NEW","C:\Program Files\Network Associates\VirusScan NT\SCAN.DAT",0,0)
IntControl(30,"C:\Program Files\Network Associates\VirusScan NT\NAMES.NEW","C:\Program Files\Network Associates\VirusScan NT\NAMES.DAT",0,0)
IntControl(30,"C:\Program Files\Network Associates\VirusScan NT\CLEAN.NEW","C:\Program Files\Network Associates\VirusScan NT\CLEAN.DAT",0,0)
EndIf
If NT == "NO"
If FileExist("C:\Progra~1\Networ~1\Mcafee~1\SCAN.DAT") == @TRUE then
IniWritePvt("rename","C:\Progra~1\Networ~1\Mcafee~1\SCAN.DAT","C:\Progra~1\Networ~1\Mcafee~1\SCAN.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~1\Networ~1\Mcafee~1\NAMES.DAT","C:\Progra~1\Networ~1\Mcafee~1\NAMES.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~1\Networ~1\Mcafee~1\CLEAN.DAT","C:\Progra~1\Networ~1\Mcafee~1\CLEAN.NEW","C:\Windows\Wininit.ini")
EndIf
If FileExist("C:\Progra~1\Networ~2\Mcafee~1\SCAN.DAT") == @TRUE then
IniWritePvt("rename","C:\Progra~1\Networ~2\Mcafee~1\SCAN.DAT","C:\Progra~1\Networ~2\Mcafee~1\SCAN.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~1\Networ~2\Mcafee~1\NAMES.DAT","C:\Progra~1\Networ~2\Mcafee~1\NAMES.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~1\Networ~2\Mcafee~1\CLEAN.DAT","C:\Progra~1\Networ~2\Mcafee~1\CLEAN.NEW","C:\Windows\Wininit.ini")
EndIf
If FileExist("C:\Progra~1\Networ~3\Mcafee~1\SCAN.DAT") == @TRUE then
IniWritePvt("rename","C:\Progra~1\Networ~3\Mcafee~1\SCAN.DAT","C:\Progra~1\Networ~3\Mcafee~1\SCAN.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~1\Networ~3\Mcafee~1\NAMES.DAT","C:\Progra~1\Networ~3\Mcafee~1\NAMES.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~1\Networ~3\Mcafee~1\CLEAN.DAT","C:\Progra~1\Networ~3\Mcafee~1\CLEAN.NEW","C:\Windows\Wininit.ini")
EndIf
If FileExist("C:\Progra~2\Networ~1\Mcafee~1\SCAN.DAT") == @TRUE then
IniWritePvt("rename","C:\Progra~2\Networ~1\Mcafee~1\SCAN.DAT","C:\Progra~2\Networ~1\Mcafee~1\SCAN.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~2\Networ~1\Mcafee~1\NAMES.DAT","C:\Progra~2\Networ~1\Mcafee~1\NAMES.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~2\Networ~1\Mcafee~1\CLEAN.DAT","C:\Progra~2\Networ~1\Mcafee~1\CLEAN.NEW","C:\Windows\Wininit.ini")
EndIf
If FileExist("C:\Progra~2\Networ~2\Mcafee~1\SCAN.DAT") == @TRUE then
IniWritePvt("rename","C:\Progra~2\Networ~2\Mcafee~1\SCAN.DAT","C:\Progra~2\Networ~2\Mcafee~1\SCAN.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~2\Networ~2\Mcafee~1\NAMES.DAT","C:\Progra~2\Networ~2\Mcafee~1\NAMES.NEW","C:\Windows\Wininit.ini")
IniWritePvt("rename","C:\Progra~2\Networ~2\Mcafee~1\CLEAN.DAT","C:\Progra~2\Networ~2\Mcafee~1\CLEAN.NEW","C:\Windows\Wininit.ini")
EndIf
EndIf
BoxDestroy(2)
;Draw Buttons
BoxColor(1,YELLOW,WASH)
BoxDrawRect(1,"0,0,1000,1000",2)
BoxTextColor(1,WHITE)
BoxTextFont(1,"%FONT%",48,170,1|%FAMILY%)
BoxDrawText(1,"100,200,900,250","Update of DAT files complete",@false,1|16)
BoxTextFont(1,"%FONT%",40,40,1|%FAMILY%)
BoxDrawText(1,"50,500,950,650","The DAT files will take effect next time you reboot your PC.%@CRLF%Please reboot at your earliest convenience%@CRLF%so your PC is fully protected.",@false,1|16)
Delay(3)
; Choose Menu Option
EXIT
Article ID: W14295
Filename: McAfee 4.0.2 Update.txt