Addextender("WWWNT34I.DLL")
Addextender("WWIPG34I.DLL")
vra=0
vrb=0
tw=0
lg=1

G="c:\"
H=strcat(g,"Mydomainlist.txt")
I="\C$\Winnt\system32"
:top
lg=lg+1
log1="c:\msblast\patch%lg%.txt"
log1=fileopen(log1,"APPEND")
a=TimeYmdHms()
cur_tm1=ItemExtract(1, a, ":")
cur_tm2=ItemExtract(2, a, ":")
cur_tm3=ItemExtract(3, a, ":")
cur_tm=strcat("MsblastSearch",cur_tm3,cur_tm2,cur_tm1,".txt")
F=strcat(g,cur_tm)
time=TimeDate()
If tw !=0
	Boxopen("Msblast Search","Waiting for 2 hour(s)...")
	TimeWait("0000:00:00:02:00:00")
endif
tw=tw+1
	old = FileOpen(H, "READ")
	log=fileopen(F,"APPEND")
	Filewrite(log,"LOG RUN--%time%")
		while @TRUE
				errormode(@OFF)						  ;
				k = FileRead(old)						  ;
				If k == "*EOF*" then break			  ;ping to see if its alive
				host=strcat(k,".affymetrix.com")	  ;
			  	tst=ipPing (host,5)					  ;
				
				If tst==@TRUE
					boxopen("MBlast locator by Chuck Arconi","Searching system: %k%" )
					Filewrite(log,"")	
			  		Filewrite(log,k)
					mach=strcat("\\",k)
					fo=strcat("c:\event\",k,".txt")
					l=strcat("\\",k,i)
					fx0=fileexist("%l%\MSBLAST.EXE")
					handle=RegConnect(mach, @REGMACHINE)
					mb=RegQueryValue(handle,"SOFTWARE\Microsoft\Windows\CurrentVersion\Run[windows auto update]")						
					If fx0==@true then Filewrite(log,"MSBLAST.exe located")
					fx1=fileexist("%l%\rpcrt4.dll")
					If fx1==@true 
					  ft=FileTimeGet("%l%\rpcrt4.dll")
					  parsedata(ft)
						If param1 !="7/5/2003" 
								Filewrite(log1,"%k%  - rpcrt4.dll not updated")
	    				endif
					 endif
							If mb=="MSBLAST.EXE" 
								Filewrite(log,"MSBLAST reg entry located")
								vra=1
							endif
								If mb=="msblast.exe"
									Filewrite(log,"MSBLAST reg entry located")		    
									vrb=2
								endif
				else
				 	Filewrite(log,"%k% Not Online")
				endif
				vir=vra+vrb
				If vir !=0 then gosub mail
			endwhile
	dirchange("c:\event")
	filedelete("*.txt")
	fileclose(log)
	goto top

:MAIL
switch vir
	case 1
		msg_lne="msblast.exe found on %k%"
		sbj_lne="msblast.exe found on %k%"
		break
	case 2
		msg_lne="msblast registry entry found on %k%"
		sbj_lne="msblast registry entry found on %k%"
		break
	case 3
		msg_lne="msblast.exe and registry entry found on %k%"
		sbj_lne="msblast.exe and registry entry found on %k%"
		break
endswitch
list ="" 
host="ntex00.affymetrix.com"
fromaddr="Helpdesk@affymetrix.com"
userid="%usr_id%"
password=""
port=""
tolist="chuck_arconi@affymetrix.com,rob_burnett@affymetrix.com,mike_infantino@affymetrix.com"
cclist=""
bcclist=""
subject="%sbj_lne%"
msg="%msg_lne%"
attachments=""
flags=""
kInit(host,fromaddr,userid,password,port)
kDest(tolist,cclist,bcclist)
kSendText(subject,msg,attachments,flags)
return