what is the syntax to discover the network address of the box with the  sql server my app is connected to?

        '-- estabilish locals
        Dim connString As String
        Dim serverName As String
        Dim parseConnString As New Data.SqlClient.SqlConnectionStringBuilder

        '-- get the active connection string
        connString = ConnectionManager.GetApplicationActiveConnectionString("MyApplicationKey", "")
        '-- set the parser connection string
        parseConnString.ConnectionString = connString
        '-- get the server name from the parser
        serverName = parseConnString.DataSource