如何列举局域网内的所有SQL server服务？？（在线）

[baiyongchun]

如何列举局域网内的所有SQL　server服务？？（在线）

[baiyongchun]

SQL　server服务器

[lwk_hlj]

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;

[pengdali]

OSQL -L > C:\SERVERLIST.TXT

[baiyongchun]

我象：
lwk_hlj(披着狼皮的人)
做了，不知为什么部分服务器不能列出（有时候又能找到），本机SQL SERVER也列不出，为什么啊？？

[angelior]

不是吧！
lwk_hlj(披着狼皮的人)是Delphi中的。。。。
呵呵！
也真行！