Addextender("WWWNT34I.DLL")
Addextender("WWIPG34I.DLL")
AddExtender("wsrch34i.dll")
G="c:"
H=strcat(g,"\Mdomainlist.txt")
;Slist ="C:\program files\new user\Sac_recip.txt"
;sac=Askfiletext("Sacramento CIS representative ?", Slist, @sorted, @single)
loc_pth1="c$\winnt"
loc_pth2="c$\winnt\system32"
:top
a=TimeYmdHms()
cur_tm1=ItemExtract(1, a, ":")
cur_tm2=ItemExtract(2, a, ":")
cur_tm3=ItemExtract(3, a, ":")
cur_tm=strcat("FileSearch",cur_tm3,cur_tm2,cur_tm1,".txt")
F=strcat(g,"\",cur_tm)
time=TimeDate()
;Boxopen("Network File Search by Chuck Arconi","Waiting for Midnight...")
;TimeWait("0000:00:00:23:50:00")
	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("Network File Search by Chuck Arconi","Searching  %k%" )
			Filewrite(log,"")	
			Filewrite(log,k)
			gosub srch1
		endif
	endwhile
fileclose(log)
  
:srch1
path1=strcat("\\",k,"\",loc_pth1)
path2=strcat("\\",k,"\",loc_pth2)
;debug(@on)
c=0
m=0
	while @true
	   BoxOpen("Network File Search by Chuck Arconi","Searching for WQK on %k%\winnt")
		  While m!=8
			m=m+1	
			  switch m
					case 1
						hand1=srchInit(path1,"wqk.dll","","",8)
						a=srchNext(hand1)
						srchFree(hand1)
						break
					case 2
						hand2=srchInit(path1,"wqk.exe","","",8)
						a=srchNext(hand2)
						srchFree(hand2)
						break
					case 3
						hand3=srchInit(path2,"wqk.exe","","",8)
						a=srchNext(hand3)
						srchFree(hand3)
						break
					case 4
						hand4=srchInit(path2,"wqk.dll","","",8)
						a=srchNext(hand4)
						srchFree(hand4)
						break
					case 5
						hand5=srchInit(path1,"wink.exe","","",8)
						a=srchNext(hand5)
						srchFree(hand5)
						break
					case 6
						hand6=srchInit(path1,"wink.dll","","",8)
						a=srchNext(hand6)
						srchFree(hand6)
						break
					case 7
						hand7=srchInit(path2,"wink.dll","","",8)
						a=srchNext(hand7)
						srchFree(hand7)
						break	
					case 8
						hand8=srchInit(path2,"wink.exe","","",8)
						a=srchNext(hand8)
						srchFree(hand8)
						break	
				endswitch		
					
				BoxText(a)
			   if a=="" then Filewrite(log,"Files not found")
				if a=="" then	break
				c=c+1
			   Display(1,c,a)
				r=strcat(path1,"\wqk.dll")
				Filedelete(r)
				exorcise=fileexist(r)
				If exorcise==@TRUE then Filewrite(log,"Files deleted %a%")
				If exorcise!=@TRUE then Filewrite(log,"Files not deleted %a%")
	  	endwhile
		if m==8 then break
	endwhile
return