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

[MORTEZA66]

سلام
میخواستم بدونم چطور میشه لیست sqlserverهایی که توی شبکه وجود دارند رو بدست آورد تا در یک کومبو لیست شوند؟
خودم این کدها رو مینویسم اما درست جواب نمیده یعنی تعداد slqserverها رو صفر میده.توضیح اینکه Microsoft SqlDMO Object Library 8.5 رو add Refrence میکنم

[MORTEZA66]

Dim i As Integer
Dim oname As SQLDMO.NameList
Dim osqlapp As SQLDMO.Application
osqlapp = New SQLDMO.Application
oname = osqlapp.ListAvailableSQLServers
For i = 1 To oname.Count
servername_cmb.Items.Add(oname.Item(i).ToString)
Next

[MORTEZA66]

کسی نیست کمک کنه لااقل یه کم کمک کنه!!

[amirsajjadi]

سلام آقا مرتضی
ببین شمارنده های حلقه تو از 0 بگیر تا count-1

[ardavan]

اول اینه counter for باید از 0 شروع و تا count -1 باشه.
بعدش مشکلت چیه الان؟

[MORTEZA66]

مشکل اینه که این کدها اصلا لیست سرورها رو نمیده و تعداد اونها را برابر با صفر میده می خواستم بدونم کجای کار ایراد داره؟