如何在外部得到本地机器的(SQL SERVER)数据库服务器名？

Question

vb:Dim oApp 'as SQLDMO.Application
Dim oServer 'as SQLDMO.SQLServer
Dim oDatabase 'as SQLDMO.database
Dim oNames 'as SQLDMO.Namelist
Dim oName 'as variant
Set oApp=CreateObject("SQLDMO.Application")
Set oNames=oApp.ListAvailableSQLServers()
For Each oName in oNames
Set oServer =CreateObject("SQLDmo.SqlServer")
oServer.LoginSecure=Ture
oServer.connect oName
MsgBox "There are "&oServer.Databases.Count&"databases for server"&oName
oServer.Disconnect
Set oServer=nothing
NextoApp.quit
Set oApp=nothing

Answer 1

delphi:function TFormDataSet.GetSQLServer(ComboBox: TComboBox): Boolean;
var
  SQLServer: Variant;
  ServerList: Variant;
  i, nServers: integer;
  sRetValue: string;
begin
  ComboBox.Items.Clear;
  Result := False;
  try
    Screen.Cursor := crHourGlass;
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    nServers := ServerList.Count;
    for i := 1 to nServers do
      ComboBox.Items.Add(ServerList.Item(i));
    SQLServer := NULL;
    ServerList := NULL;
    Result := True;
    cbSQLServer.Style := csDropDownList;
  except
  end;
  Screen.Cursor := crDefault;
end;

Answer 2

Transact-SQL 参考  
@@SERVERNAME
返回运行 Microsoft® SQL Server™ 的本地服务器名称。语法
@@SERVERNAME返回类型
nvarchar注释
SQL Server 安装程序在安装时将服务器名设置为计算机名。可通过使用 sp_addserver 然后重新启动 SQL Server 来更改 @@SERVERNAME。不过，通常不需要这种方法。当安装有多个 SQL Server 实例时，如果本地服务器名自安装后未发生更改，则 @@SERVERNAME 返回以下本地服务器名信息。实例 服务器信息 
默认实例 '服务器名' 
命名实例 '服务器名\实例名' 
虚拟服务器 - 默认实例 '虚拟服务器名' 
虚拟服务器 - 命名实例 '虚拟服务器名\实例名' 
尽管 @@SERVERNAME 函数和 SERVERPROPERTY 函数的 SERVERNAME 属性可能返回相似格式的字符串，但信息会有所不同。SERVERNAME 属性会自动报告计算机网络名的更改。相比之下，@@SERVERNAME 不报告此更改。@@SERVERNAME 报告使用 sp_addserver 或 sp_dropserver 存储过程对本地服务器名所做的更改。示例
SELECT @@SERVERNAME
请参见配置函数SERVERPROPERTYsp_addserver©1988-2000 Microsoft Corporation。保留所有权利。

Answer 3

楼上老兄，
我可是在外部得到本地机器的(SQL SERVER)数据库服务器名,

Answer 4

我仅仅想得到本地机器的(SQL SERVER)数据库服务器名,