جلب اسم السرفر للكومبوبوكس - نسخة قابلة للطباعة

كود :
Imports System.Data.Sql

Imports System.Data.SqlClient

Imports Microsoft.Win32



Public Sub LoadSqlServers()

    Dim servers As New List(Of String)

    Dim registryKey As String = ""



    ' التحقق من نوع النظام (32-bit أو 64-bit)

    If Environment.Is64BitOperatingSystem Then

        ' إذا كان النظام 64-بت

        If Environment.Is64BitProcess Then

            registryKey = "SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL"

        Else

            registryKey = "SOFTWARE\WOW6432Node\Microsoft\Microsoft SQL Server\Instance Names\SQL"

        End If

    Else

        ' إذا كان النظام 32-بت

        registryKey = "SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL"

    End If



    ' قراءة أسماء السيرفرات من الريجستري

    Try

        Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey(registryKey)

        If regKey IsNot Nothing Then

            For Each subKeyName As String In regKey.GetValueNames()

                servers.Add(subKeyName)

            Next

        End If



        ' إضافة أسماء السيرفرات إلى ComboBox

        ComboBox1.Items.Clear()

        For Each server As String In servers

            ComboBox1.Items.Add(server)

        Next



    Catch ex As Exception

        MessageBox.Show("حدث خطأ أثناء جلب أسماء السيرفرات: " & ex.Message)

    End Try

End Sub