请教高手，怎样得到要连接的服务器的计算机名和ip，并且要知道该服务器上是否已安装了sql server 2000

[dongjtlhd]

请教高手，怎样得到要连接的服务器的计算机名和ip，并且要知道该服务器上是否已安装了sql server 2000.高分拜求！再现等待。

[dongjtlhd]

怎么没有人回答呢？小弟真的很需要。

[trustmeok]

老兄，我看这论坛的大哥大们都冬眠去了，小弟冒死来救!

1)winsock中有LookupHostName和LocalHostAddr
不知您的服务器是哪一台？？

2)
如何检测局域网内哪些机器安装了SQL Server2000?

来自：pihome, 时间：2003-7-25 14:56:00, ID：2059555
uses ComObj;
GetSQLServerList(Memo1.Lines);

function GetSQLServerList(List: TStrings): Boolean;
var
SQLServer: Variant;
ServerList: Variant;
i: Integer;
begin
Result:=False;

if not Assigned(List) then
Exit;
List.Clear;

try
try
SQLServer:=CreateOleObject('SQLDMO.Application');
ServerList:=SQLServer.ListAvailableSQLServers;
for i:=1 to ServerList.Count do
List.Add(ServerList.Item(i));

Result:=True;
except
on E: Exception do;
end;
finally
ServerList:=NULL;
SQLServer:=NULL;
end;
end;



来自：Highpeak, 时间：2003-7-25 14:52:00, ID：2059557
使用下面的函数。
Function GetSQLServerList(var List: Tstringlist): boolean;
var
i: integer;
sRetValue: String;
SQLServer: Variant;
ServerList: Variant;
begin
Result := False;
List.Clear;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
list.Add (Serverlist.item(i));
Result := True;
Finally
SQLServer := NULL;
ServerList := NULL;
end;
end;

[dongjtlhd]

谢谢，不过我只想知道我连接的那台机器上面是否安装了sql