How to fetch the sql server name of various systems

See more:

VB

Windows

SQL-Server-2008R2

Hi all

I have a program which does the backup and restore of sql database.now for each system i am defining the server name and connection string manually like below

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      
       server("KITT7-PC")
   End Sub
   Sub server(ByVal str As String)
       Try

           con = New SqlConnection("Data Source= KITT7-PC;Database=Master;integrated security=True;")
           con.Open()

now i want is if i am putting the same application in other system then it should automatically take the server name and connection string so that manually we don't have to change that.

Thank you