怎样获得网络中所有sql server服务器名称(50分)

怎样获得网络中所有sql server服务器名称

高手们 ，我也想知道。

你可以调用api函数WNetOpenEnum和WNetEnumResource，你可以查帮助

GIVE ME

uses ......, comobj;

procedure TForm1.Button1Click(Sender: TObject);

var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
begin
if Combobox1.Items.Count=0 then
begin
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
Combobox1.Clear;
for i := 1 to nservers do
Combobox1.Items.Add(ServerList.Item(i));
SQLServer:=Unassigned;
serverList:=Unassigned;
except
end;
end;
end;

Oops!!