Addextender("WWWNT34I.DLL")
Addextender("wwipg34i.dll")

H="c:\domainlist.txt"
F="c:\BootFileLog.txt"
	old = FileOpen(H, "READ")
	log=fileopen(F,"APPEND")
		while @TRUE
				errormode(@OFF)
				;debug(@ON)
				x = FileRead(old)		
				If x == "*EOF*" then break
				host=strcat(x,".affymetrix.com")
			  	tst=ipPing (host,5)
				If tst==@TRUE
					boxopen("File Search","Searching boot sector: %x%" )
					x=strcat("\\",x,"\c$")
						 Filewrite(log,"%x%")
						 errormode(@ON)
						 gosub search
				 else
				 	 Filewrite(log,"%x% Not Online")
				 endif
		 endwhile
		fileclose(log)


			:search
			fl_01=fileexist("%x%\autoexec.bat")
						 fl_02=fileexist("%x%\io.sys")
						 fl_03=fileexist("%x%\ntdetect.com")
						 fl_04=fileexist("%x%\ntldr")
						 fl_05=fileexist("%x%\boot.ini")
						 fl_06=fileexist("%x%\msdos.sys")
						if fl_01==@true
						 	fl_01=0
						  else
						  	Filewrite(log,"autoexec.bat MISSING")
							boxtext("autoexec.bat MISSING")
							fl_01=2
						endif
						if fl_02==@true
							fl_02=0
						else
							Filewrite(log,"io.sys MISSING")
							boxtext("io.sys MISSING")
							fl_02=2
						endif
						if fl_03==@true
							fl_03=0
						else
							Filewrite(log,"ntdetect.com MISSING")
							boxtext( "ntdetect.com MISSING")
							fl_03=2
						endif
						if fl_04==@true
							fl_04=0
						else
							Filewrite(log,"ntldr MISSING")
							boxtext( "ntldr MISSING")
							fl_04=2
						endif
						if fl_05==@true
							fl_05=0
						else
							Filewrite(log,"boot.ini MISSING")
							boxtext( "boot.ini MISSING")
							fl_05=2
						endif
						if fl_06==@true
							fl_06=0
						else
							Filewrite(log,"msdos.sys MISSING")
							boxtext( "msdos.sys MISSING")
							fl_06=2
						endif
						if fl_01 + fl_02 + fl_03 +fl_04 + fl_05 + fl_06 > 5 
					 		Filewrite(log,"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^")
						endif
						return