怎样获得局域网上SQL Server数据库服务列表。

Question

比如在SQL Server中建立注册时可以显示当前可用的Sql Server服务的列表供选择。
我的问题是在Delphi 5中怎样实现这个功能。即怎样得知局域网上都有那些Sql Server服务？

Answer 1

uses Comobj;
    procedure TForm1.Button1Click(Sender: TObject);
    var
    SQLServer:Variant;
    ServerList:Variant;
    i,nServers:integer;
    sRetValue:String;
    begin
      SQLServer := CreateOleObject('SQLDMO.Application');
      ServerList:= SQLServer.ListAvailableSQLServers;
      nServers:=ServerList.Count;
      for i := 1 to nservers do
      ListBox1.Items.Add(ServerList.Item(i));
      SQLServer:=NULL;
      serverList:=NULL;
    end;