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

سلام دوستان .

چطوری میشه لیست همه سرور هرو بدست اورد و لیست دیتابیس های SqlServer روی هر سرور رو دید ؟ (vb.net)

پیشاپیش ممنون

لیست سرور ها فقط در صورت فعال بودنBrowser Service قابل نمایش است .

با استفاده از SMO میتوانید این کار را بکنید .

مثال :

کد:

---

Dim svr As New Microsoft.SqlServer.Management.Smo.Server(".\sqlexpress")
        For Each db As Microsoft.SqlServer.Management.Smo.Database In svr.Databases
            MsgBox(db.Name)
        Next

---

این پست هم چیزهایی دارد , انشاء الله که مفید باشد

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

نوشته شده توسط bad_boy_2007 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

لیست سرور ها فقط در صورت فعال بودنBrowser Service قابل نمایش است .

با استفاده از SMO میتوانید این کار را بکنید .

مثال :

کد:

---

Dim svr As New Microsoft.SqlServer.Management.Smo.Server(".\sqlexpress")
        For Each db As Microsoft.SqlServer.Management.Smo.Database In svr.Databases
            MsgBox(db.Name)
        Next

---

---

ممنون از پاسختون .

میشه در مورد بدست اوردن لیست سرور ها هم راهنمایی کنید و در مورد Browser Service هم توضیح بدین؟

کد:

---

Dim dt As DataTable = Microsoft.SqlServer.Management.Smo.SmoApplication.EnumAvailableSqlServers(False)
        If dt.Rows.Count > 0 Then
            For Each dr As DataRow In dt.Rows
                MsgBox(dr("Name"))
            Next
        End If

---