I use this VFP code for that:

LOCAL lo,lp
lo=CREATEOBJECT("SQLDMO.Application")
IF TYPE("lo")<>"O" OR ISNULL(lo)
	MESSAGEBOX("Librería no instalada")
ELSE
	lp=lo.ListAvailableSQLServers()
	IF TYPE("lp")<>"O" OR ISNULL(lp)
		MESSAGEBOX("No se encuentran los 
servidores")
	ELSE
		MESSAGEBOX("Nº de servidores: " + TRANSFORM
(lp.count))
	ENDIF
ENDIF
RETURN .T.

Problem:

BOL say ListAvailableSQLServers() method is only compatible with NT/2000.
I try in Win98 SE and it work if the computer have a network card, but it haven´t then don´t work.

Any alternative solution?

Regards,
José Luis.