How to get All SQL Server Names ?

[amal123]

I am developing a client server system in VB and SQL back-end.

I need to get all the SQL server names that are running in my domian.

Then it allows me to give a drop down list of available servers to users to choose at the initial system start up.

I know to get the current machine name and username etc by calling the windows APIs.

Can SQL server names in the network be also retrieved with APIs ?

Welecom your comments !
Help Me ...

Amal

[Hack]

'Add this code As a reference To the Microsoft SQLDMO Object Library (SQLDMO.DLL).
'NOTE:   To use SQLDMO objects you have to have Enterprise Manager 
'installed. SQLDMO is the engine that drives Enterprise Manager.
 
Dim SQLApp As SQLDMO.Application
Dim Names As SQLDMO.NameList
    
Set SQLApp = New SQLDMO.Application
' get available servers
Set Names = SQLApp.ListAvailableSQLServers
    
Dim indx As Integer
 
' add server names to Listbox control   
For indx = 1 To Names.Count
    List1.Additem Names.Item(indx)
Next
    
Set Names = Nothing
Set SQLApp = Nothing