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

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

این تکه کد برای بدست آوردن نام سرورهای موجود در شبکه می باشد. گفتم شاید به درد کسی بخوره.
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

[majid_cs]

خیلی ممنون.
من واقعا به این کد نیاز داشتم.
:تشویق:

[S_VB.max]

چرا این کدها روی کامپیوتر من جواب نمی ده ؟ من Microsft SQLDMO Object Library را اضافه می کنم ولی حتی یک پیغام خطا هم نمی ده که متوجه بشم مشکل از کجاست

[S_VB.max]

چرا این کدها روی کامپیوتر من جواب نمی ده ؟ من Microsft SQLDMO Object Library را اضافه می کنم ولی حتی یک پیغام خطا هم نمی ده که متوجه بشم مشکل از کجاست
کسی نیست به این سئوال جواب بده ؟