呵呵,看看这个,不过得到的不是特别全。但是就算SQL Server自己也得不全呀。
扫描端口也许不好,如果更改了14433端口呢?我不知道下面得代码改变端口以后是否有效
还有一段VB的,没有实验的。如果需要,也可以贴出来。
来自:夜黑风高, 时间:2002-5-8 14:40:00, ID:1089201
uses
comobj;
procedure TForm1.btnButton1Click(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;