>HI all,
>
>is there a way to know when the computer has lost the LAN connection, so that I can close everything and/or shut the application?
>
>Thanks,
>javier.

See Message #684995

Also from wwww.foxclub.ru forum:

http://forum.foxclub.ru/read.php?29,190587,190826#msg-190826

Solution from AlexSSS (don't know his real name):

machine	= ALLTRIM(comp_name)  
  	objPing2 = GETOBJECT("winmgmts:")  
  	objPing	= objPing2.ExecQuery("select * from Win32_PingStatus where address = '&Machine'")  
  	FOR EACH objStatus IN objPing  
  		IF ISNULL(objStatus.StatusCode) OR objStatus.StatusCode<>0 Then  
  			? machine+" not found"  
  			EXIT  
  		ENDIF  
  	NEXT