怎样列出局域网中所有可用的SQL Server2000服务器？

Question

如题，想要一种在没装SQL的机子上也可成功的方法SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
不能在没装SQL的机子上运行。

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;

Answer 2

没错,Delphi里用这个就可以
但不知为什么在C++Builder里面就用不起来