#Region "Load Servers"
Public Function LoadServer64() As List(Of String)
LoadServer64 = New List(Of String)
Dim LocalMachine64 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
Dim Rk64 = LocalMachine64.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
Dim Insatnces64 = CType(Rk64.GetValue("InstalledInstances"), String())
If Insatnces64.Length > 0 Then
For Each element As String In Insatnces64
If element = "MSSQLSERVER" Then
LoadServer64.Add(System.Environment.MachineName)
Else
LoadServer64.Add(System.Environment.MachineName + "\" + element)
End If
Next
End If
End Function
Public Function LoadServer32() As List(Of String)
LoadServer32 = New List(Of String)
Dim LocalMachine32 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry32)
Dim Rk32 = LocalMachine32.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
Dim Insatnces32 = CType(Rk32.GetValue("InstalledInstances"), String())
If Insatnces32.Length > 0 Then
For Each element As String In Insatnces32
If element = "MSSQLSERVER" Then
LoadServer32.Add(System.Environment.MachineName)
Else
LoadServer32.Add(System.Environment.MachineName + "\" + element)
End If
Next
End If
End Function
#End Region