بدست آوردن سرور هاي ديتابيس

[Amateur_G]

سلام به استادان گرامي.
من ميخوام بدونم كه چطور ميشه تمامي سرور هاي sql موجود در شبكه را ليست كرد.
منظورم اينه كه كدي بنويسم كه بره تو شبكه ببينه چه سرورهايي براي ديتابيس sql وجود داره و برام ليست كنه.
از اينكه وقت مي گذاريد ممنون ميشم.:لبخندساده:

[parsavb]

این برنامه به دردت میخوره
http://barnamenevis.org/forum/attachment.php?attachmentid=19061&d=1213268239

[Amateur_G]

ممنون از توجهت.
اما ميگه آدرس در سايت موجود نيست.

[parsavb]

این کد ها رو از برنامه ای کپی کردم که تازه می نویسم خودت کاملش کن



Dim i AsInteger
Dim onames As SQLDMO.NameList
Dim osqlapp As SQLDMO.Application
Dim oserver As SQLDMO.SQLServer
'================================================= ================================================== ======
بدیت آوردن سرورهای دیتابیس
'================================================= ================================================== ======

osqlapp =

New SQLDMO.Application

onames = osqlapp.ListAvailableSQLServers()

For i = 1 To onames.Count
cbo_server.Items.Add(onames.Item(i).ToString)
Next i
If cbo_server.SelectedItem IsNothingOr Trim(cbo_server.SelectedItem) = ""Then
msg.Show(




"لطفاً نام سرور را انتخاب کنید", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

ExitSub

EndIf
Try
oserver.Connect(cbo_server.SelectedItem,




Nothing, Nothing)

Catch ex As Exception

MsgBox(ex.Message)
ExitSub
EndTry
For i = 1 To oserver.Databases.Count
With oserver.Databases.Item(i)
IfNot .SystemObject Then
cbo_database.Items.Add(.Name)
EndIf
EndWith
Next i





در ضمن این هم آدرس درست برنامه بالائی



http://barnamenevis.org/forum/attachment.php?attachmentid=19243&d=1213623198