This is a multi-part message in MIME format.

------=_NextPart_000_0018_01C1EF6C.22FBFA90
Content-Type: text/plain;
	charset="iso-8859-7"
Content-Transfer-Encoding: 7bit

Hi

set a reference to SQLDMO, then

'declare a variable
Private oSqlServer As SQLDMO.SQLServer

'create a function called getservers

private sub getservers
Dim idx As Integer
Dim sName As NameList

'find a list of available servers
Set sName = oSqlServer.Application.ListAvailableSQLServers

'loop through the list of available servers
For idx = 1 To sName.Count
        list1.AddItem sName.Item(idx)
Next idx
end sub

this will list all sql servers.

Duncan
MCP,MCSD,AMIAP
  -----Original Message-----
  From: George Theodorakopoulos [mailto:gtheo@b...]
  Sent: 29 April 2002 09:42
  To: professional vb
  Subject: [pro_vb] Find SQL Servers


  hello...

  How can i find at runtime the names of all sql servers are running in the
network?

  Thank you!