OracleDataSourceEnumeratorは、Oracleクライアントに設定されている、ネットサービス名、サーバー名、サービス名、プロトコル、ポートを取得できます。
※ ADO.NET 2.0準拠のODP.NETでのみサポートされています。

 Private Sub getDataSource()
        Dim dsenum As New OracleDataSourceEnumerator
        Dim dt As DataTable
        Dim drow As DataRow
        Dim col As DataColumn

        Try
            dt = dsenum.GetDataSources

            For Each drow In dt.Rows
                Console.WriteLine("-----------------")
                For Each col In drow.Table.Columns
                    Console.WriteLine(col.Caption + " : " + _
                                      drow.Item(col.Caption).ToString)
                Next
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub