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

Question

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

Answer 1

老兄，我看这论坛的大哥大们都冬眠去了，小弟冒死来救!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;

Answer 2

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