/// <summary>
/// Gibt zurück ob der Server antwortet
/// </summary>
/// <returns>boolean</returns>
public Boolean ServerResponse()
{ 
        using (SqlConnection Conn = new SqlConnection(@"Data Source=" + _
          SQLServerConn.ServerSettings.DataSource + ";User Id=" + _
          SQLServerConn.ServerSettings.User + ";Password=" + _
          SQLServerConn.ServerSettings.PW + ";"))
        {
            try
            {
                Conn.Open();
                return true;
            }
            catch
            {
                return false;
            }            
        }   
}

Gruß
Christoph

        Dim PingErgebnis As Boolean
        Dim Rechnername As String = "DeinServername"
 
        Try
            PingErgebnis = My.Computer.Network.Ping(Rechnername)
        Catch ex As Exception
            PingErgebnis = False
        End Try
 
        If PingErgebnis = True Then
            MessageBox.Show("Der Computer ist erreichbar!")
        Else
            MessageBox.Show("Der Computer ist nicht erreichbar!")
        End If

EALA FREYA FRESENA

Public Const ConString_Alternative = "Data Source=(DESCRIPTION=" & _
                "(ADDRESS=(PROTOCOL=TCP)(HOST=" & ORA_HOST & ")(PORT=" & _
                ORA_PORT & "))" & _
                "(CONNECT_DATA=(SERVICE_NAME=" & ORA_SERVICE_NAME & ")));" & _
                "User Id=" & ORA_AdminID & ";Password=" & ORA_AdminPwd & ";"