获取SQL Server服务器列表的几种方法

一、      SQL DMO

描述：SQL Distributed Management Objects（SQL分布式管理对象），存在于SQLDMO.dll文件中，实际上是一个COM 对象，通过调用SQL DMO的ListAvailableSQLServers方法取得。

列表类型：列举装有“客户端”和“服务端”的计算机。

适用条件：装有 SQL Server，且有SQLDMO.dll文件。

速度：中

调用示例：GetSQLServerList(ListBox1.items);

代码：

uses

  ComObj;

function GetSQLServerList(var AList: TStrings): Boolean;

var

  SQLServerApp: Variant;

  ServerList: Variant;

  i: Integer;

begin

  Result := True;

  try

    SQLServerApp := CreateOleObject(''''SQLDMO.Application'''');

    ServerList := SQLServerApp.ListAvailableSQLServers;

    for i := 1 to ServerList.Count do

      AList.Add(ServerList.Item(i));

    SQLServerApp := Unassigned;

    ServerList := Unassigned;

  except

    Result := False;

  end;

end;

二、      NetServerEnum

[1] [2] [3] [4] [5] [6] [7] [8]  下一页