>>>>>>
>>>>>
>>>>>As above: I'm getting .T. when, for example, the connection is trying to use an invalid gateway setting....
>>>>>
>>>>>>As to the time it takes - didn't you like slow (and erratic) ?
>>>>>
>>>>>Why do you think I'm back on VFP (g,d&r from VFPers)
>>>>
>>>>
>>>>I have attached a class that allows you to ping using IcmpSendEcho2 : This needs at least windows 2000 in order to use IcmpSendEcho2()
>>>>The tabs in there may seem a bit erratic - my tabstop is set to 4
>>>>
>>>>I have translated the example from http://msdn.microsoft.com/en-us/library/aa366051(VS.85).aspx
>>>>
>>>>Want to try ?
>>>>
>>>>Sample code
>>>>

>>>>#define true	.T.
>>>>#define false	.F.
>>>>
>>>>set procedure to .\prog\PingBits additive
>>>>
>>>>local success
>>>>success = true
>>>>
>>>>
>>>>local obj
>>>>
>>>>local replyAddress, ;
>>>>		replyStatus, ;
>>>>		replyRoundTripTime, ;
>>>>		replyDataSize, ;
>>>>		replyData
>>>>
>>>>local pingArray[4]
>>>>pingArray[1] = '192.168.0.2'
>>>>pingarray[2] = 'www.altavista.com'
>>>>pingarray[3] = 'www.levelextreme.com'
>>>>
>>>>pingarray[4] = 'www.abc.pp.com'
>>>>
>>>>do case
>>>>case !m.success
>>>>
>>>>case !PingBits_Object(@m.obj)
>>>>	assert false
>>>>	success = false
>>>>
>>>>otherwise
>>>>	local site, reachable
>>>>	
>>>>	
>>>>	for each site in pingarray
>>>>		?m.site, chr(0x09)
>>>>		reachable= m.obj.Ping( ;
>>>>						m.site, ;
>>>>						1000, ;
>>>>						@m.replyAddress, ;
>>>>						@m.replyStatus, ;
>>>>						@m.replyRoundTripTime, ;
>>>>						@m.replyDataSize, ;
>>>>						@m.replyData ;
>>>>						)
>>>>		
>>>>		if( !m.reachable)
>>>>			?? 'Failed'
>>>>		
>>>>		else
>>>>			?? 'ms= ', replyRoundTripTime, 'address = ', replyAddress, ' received: ', m.replyData 
>>>>		
>>>>		endif
>>>>		
>>>>	endfor
>>>>
>>>>endcase
>>>>

>>>Thank you! - that looks excellent. Won't have time to look at it properly until later (one immediate snag though - I'm on VPF 8 so CTOBIN() doesn't support the flags parameter....)
>>
>>

>>

>>
>>Oh, I can change that easily - will post a modified version later
>>
>>And - I use sys(2600) - does vfp 8 support sys(2600) ?
>
>Yep :-} (looks like the same implementation)

Ok, version #2, vfp8 compatible, attached


Update: this may also be a possibility http://msdn.microsoft.com/en-us/library/aa366013(VS.85).aspx