如何在客户端显示网络中所有的SQL SERVER服务器?

Question

用SQLDOM最容易：rocedure TForm1.Button1Click(Sender: TObject);var
<br />   SQLServer:Variant;
<br />   ServerList:Variant;
<br />   i,nServers:integer;
<br />   sRetValue:String;
<br />begin
<br />
<br />  SQLServer := CreateOleObject('SQLDMO.Application');
<br />  ServerList:= SQLServer.ListAvailableSQLServers;
<br />  nServers:=ServerList.Count;
<br />  for i := 1 to nservers do
<br />      ListBox1.Items.Add(ServerList.Item(i));
<br />  SQLServer:=NULL;
<br />  serverList:=NULL;
<br />end;
<br />
<br />

Answer 1

可以这样连接网上的机器，凡是1433端口开的，就是有sql server了，然后
取机器名，作为sql server服务器名

Answer 2

连上不知道用户名和密码的SQL 服务器似乎有点困难......
呵呵,不是有点困难,几乎不可能.

Answer 3

to Taidy():
好象没用，只得到(local)