بدست آوردن لیست سرور های موجود در شبکه

[محسن بابائی]

این تکه کد برای بدست آوردن نام سرورهای موجود در شبکه می باشد. گفتم شاید به درد کسی بخوره.
Dim i As Integer
Dim oNames As SQLDMO.NameList
Dim oSQLApp As SQLDMO.Application
Set oSQLApp = New SQLDMO.Application


Set oNames = oSQLApp.ListAvailableSQLServers()
List1.Clear
For i = 1 To oNames.Count
List1.AddItem oNames.Item(i)
Next i