Ağdaki MsSQL serverleri listeleyeceğimiz bu uygulamada formunuza bir listbox ekleyin ve adını "lstServers" olarak değiştirin, daha sonra Project>References den "Microsoft SQLDMO Object Library" kutuphanesini projenize ekleyin.


Option Explicit

Private Sub Form_Activate()
Dim mDMOApp As New SQLDMO.Application
Dim mNames As SQLDMO.NameList
Dim t As Integer

Set mDMOApp = New SQLDMO.Application
Set mNames = mDMOApp.ListAvailableSQLServers()
lstServers.Clear
For t = 1 To mNames.Count
lstServers.AddItem mNames.Item(t)
Next
End Sub

mDMOApp nesnesinin ListAvailableSQLServers() fonksiyonu geriye NameList tipinde collection donduruyor. Bu uygulamada kendi makinanızdaki MsSQL Server "(local)" olarak gorunecektir(instance name belirtilmemişse), ağdaki diğer makinelerdeki serverler ise Domain adı olarak listelenir.
__________________