In desparation

Steve ( The novice)

Let's see your code...

Shawn.

Steve

:McAfeeUpdate
? "Checking McAfee definition files"
; obtain DAT version on client system
$Result=Readvalue("Hkey_Local_Machine\Software\Network Associates\TVD\Shared Components\VirusScan Engine\4.0.xx","szDatVersion")
$ClientDATVer = (0 + SUBSTR($Result, LEN($Result) - 3, 4))

; obtain approved released DAT version
$Result = ReadProfileString("\\Server\LatestDATs$\config.ini", "VirusScan Engine", "VirusDefinition")
$AppDATVer = (0 + SUBSTR($Result, LEN($Result) - 3, 4))

; determine if SDAT needs to be launched
if $ClientDATVer < $AppDATVer
; DAT version on Client is older than that on the server - Run SDAT
$SDAT = ReadProfileString("\\Server\LatestDATs$\config.ini", "VirusScan Engine", "SDATFileName")
SHELL ("%comspec% /e:1024 /c Start /w \\Server\LatestDATs$\$SDAT /s")
else
; DAT version on Client is the same version or newer than that on the server - Do nothing
endif
".]"

Config.ini:
[VirusScan Engine]
VirusDefinition=4.0.4120
SDATFileName=sdat4120.exe

In my hidden share on the server I have a file called Config.ini and the latest sdat executable. A log is also created when the sdat is run. Hope this helps and takes a load off your mind!

code:

---

	; ******************************* McAfee NetShield Section ***********************************
		if $os="WinNT"
			if existkey("HKEY_LOCAL_MACHINE\SOFTWARE\McAfee\VirusScan")<>0
				? color r+/n "	McAfee NetShield is not installed" color w/n
				shell("$server\mcafee$$\$os\install\setup.exe -s")
			else
				$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
				$DatPath="$server"+"\mcafee$$\WinNT\Update"
				$EngPath="$server"+"\mcafee$$\WinNT\Upgrade"
	
				; **************************** 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
					$=WRITEVALUE("$McAfeeEngKey", "szUpdateUncLocation", "$EngPath", "REG_SZ")
					$=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
						$=WRITEVALUE("$McAfeeRegKey"+"\Tasks\Update", "szUpdateUncLocation", "$DatPath", "REG_SZ")
						$=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:"\\'
						$=writevalue("$McAfeeAltKey","Recipient0","$rep"+$dcsa+chr(34),"REG_SZ")
						$=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
				endif

---

radimus.... This looks as tho its what I need but My users may be freeked by too many msgs. Uk NHS users also we dont use the same reg keys .

Many thanks for all yr input I will try to combine all answers to get one that suits me then post it for future ref.. Is that how its supposed to work ????

Keep up the ggod work !!!

Steve

Heres the code from thabeck that I changed[code]
:McAfeeUpdate
? "Checking McAfee definition files"
; obtain DAT version on client system
$Result=Readvalue("Hkey_Local_Machine\Software\Network Associates\TVD\Shared Components\VirusScan Engine\4.0.xx","szDatVersion")
$ClientDATVer = (0 + SUBSTR($Result, LEN($Result) - 3, 4))

; obtain approved released DAT version
$Result = ReadProfileString("\\Server\LatestDATs$\config.ini", "VirusScan Engine", "VirusDefinition")
$AppDATVer = (0 + SUBSTR($Result, LEN($Result) - 3, 4))

; determine if SDAT needs to be launched
if $ClientDATVer < $AppDATVer
; DAT version on Client is older than that on the server - Run SDAT
$SDAT = ReadProfileString("\\Server\LatestDATs$\config.ini", "VirusScan Engine", "SDATFileName")
SHELL ("%comspec% /e:1024 /c Start /w \\Server\LatestDATs$\$SDAT /s")
else
; DAT version on Client is the same version or newer than that on the server - Do nothing
open(1,"\\server\latestdats$\datlog.txt",5)
writeline(1,"@userid,$appdatver” + @TIME + Chr(13) + Chr(10) )
Close(1)

endif

In anticipation...

Steve ( the foolish novice)

[This message has been edited by Guru (edited 11 February 2001).]

[This message has been edited by Guru (edited 11 February 2001).]