Addextender("WWWNT34I.DLL")
mcf_svc1=0
loc="c:\Program Files\Network Associates\VirusScan NT\"
loc_0="\\NTSMS01\APPS\Virus Scan NT\"
v_file="scan.dat"
debug(1)
loc_1=direxist(loc)
wrkstn=Environment ("ComputerName")
If loc_1==@TRUE then
	cmp=filecompare("%loc%%v_file%","%loc_0%%v_file%")
else
 mail_1=1
 gosub MAIL
endif
switch cmp
		case 0
			break
		case -2	
			gosub UPDATE
			break
		case -3
			gosub UPDATE
			cmp=filecompare("%loc%SCAN.dat","%loc_0%%v_file%")
				If cmp==-3 
					mail_1=2
					gosub MAIL
				 endif
			break
endswitch	
:UPDATE
mcf_svc1=wntSvcStatus("","Network Associates McShield", 0, 2)
Switch  mcf_svc1
		case 1 
			break
		case 2
			wntSvcControl("", "Network Associates McShield", 0, 1)
			break
		case 3
			break
		case 4
			wntSvcControl("", "Network Associates McShield", 0, 1)
			break
		case 5
			break
		case 6
			wntSvcControl("", "Network Associates McShield", 0, 1)	
			break
		case 7
			wntSvcControl("", "Network Associates McShield", 0, 1)
			break
endswitch
dat_up=Filecopy("%loc_0%%v_file%",loc,@FALSE)
If dat_up==@False
	mail_1=1
	gosub MAIL
endif
mcf_svc1=wntSvcStatus("","Network Associates McShield", 0, 2)
Switch  mcf_svc1
		case 1 
			wntSvcStart("", "Network Associates McShield", 0, "", "")
			break
		case 2
			break
		case 3
			wntSvcStart("", "Network Associates McShield", 0, "", "")
			break
		case 4
			break
		case 5
			wntSvcStart("", "Network Associates McShield", 0, "", "")
			break
		case 6
			wntSvcStart("", "Network Associates McShield", 0, "", "")	
			break
		case 7
			wntSvcStart("", "Network Associates McShield", 0, "", "")
			break
endswitch
return

:MAIL
mail_1=0
Switch  mail_1	
		case 1 
			mssg="McAfee anti virus software may not be installed correclty or at all."
			break
		case 2
			mssg="Could not update virus signature files"
			break
		case 3
			""
			break
		case 4
			""
			break
		case 5
			""
			break
endswitch
host="ntex01.affymetrix.com"
fromaddr="Helpdesk@affymetrix.com"
userid="carcon"
password=""
port=""
tolist=""
cclist=""
bcclist="chuck_arconi@affymetrix.com"
subject="McAfee information about PC:  %wrkstn% "
msg=mssg
attachments=""
flags=""
kInit(host,fromaddr,userid,password,port)
kDest(tolist,cclist,bcclist)
kSendText(subject,msg,attachments,flags)
msg=kStatusInfo()
Message("Message?",msg)
return