主题：[原创]如何获取外部SQL数据源IP地址

帮助文档中有“获取外部SQL数据源的时间”例子如下，计划获取数据源的ip地址，如何实现？

Dim cmd As New SQLCommand
Dim dt As Date
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "S elect GetDate()"
dt = cmd.ExecuteScalar()
dt = dt.Date

或者，提供一下，如何判断SQL数据库是在本机还是网络上的代码？

麻烦老师帮忙看看，谢谢！