WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

WinBatch
Samples from Users
plus
Deltree Examples
plus
Detect Keyboard Tricks
plus
DHCP
plus
Dialogs
plus
Encryption
plus
Event Logs
plus
File Version and Dir Mgmt
plus
Games
plus
HTML
plus
MS Access
plus
Network
plus
NSLookup
plus
Registry
plus
Syntax Checker
plus
System Information
plus
Telnet

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

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
File Created: 1999:10:26:11:23:08
Last Updated: 1999:10:26:11:23:08