Addextender("WWWNT32I.DLL")
Addextender("WWIPG32I.DLL")

List="C:\Netmember.txt"
LstRd = FileOpen(List, "READ")
BoxOpen("Counting","Reading list of user shares")
PC = FileRead(LstRd)
while PC != "*EOF*"
		host=strcat(PC,".affymetrix.com")
		PC1=strcat("\\",PC)
	  	tst=ipPing (host,5)
		If tst==@TRUE
			BoxText(Host)
			rmt=RegConnect("%PC1%",@REGMACHINE)
			if rmt ==@false then goto WRITE 
 	   	key=RegOpenkey(rmt,"SYSTEM\CurrentControlSet\Services\Browser\Parameters")
			test=RegSetValue(rmt,"SYSTEM\CurrentControlSet\Services\Browser\Parameters[MaintainServerList]","AUTO")
			RegCloseKey(key)
			RegCloseKey(rmt)
			If test ==@false then gosub WRITE
		 endif
		 PC = FileRead(LstRd)
		 If PC == "*EOF*" Then Break
		endwhile
		FileClose(LstRd)

:WRITE
handle = FileOpen("c:\nogood.txt", "APPEND")
FileWrite(handle, "%PC%")
FileClose(handle)
return