检测网络中的服务器名称？？？

Question

如何用delphi编程实现检测局域网中的服务器名称，然后列到combobox或listbox中？？？这样，选择一个服务器名，用ADO就可以跟数据库连上！

Answer 1

procedure TInitForm.FormCreate(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ServerName.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;
end;或者这个
//注意引用AdoConEd这个单元，添加一个按钮，一个memo1，一个ADOConnection1
ADOConnection1.Close;
if EditConnectionString(ADOConnection1) then
Memo1.Lines.Add(ADOConnection1.ConnectionString)