如何获取局域网中的sql server数据库名，和该主机名（ip或者机器名）

关于网友提出的“ 如何获取局域网中的sql server数据库名，和该主机名（ip或者机器名）
”问题疑问，本网通过在网上对“ 如何获取局域网中的sql server数据库名，和该主机名（ip或者机器名）
”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：

问题： 如何获取局域网中的sql server数据库名，和该主机名（ip或者机器名）
描述:

如题目

---

解决方案1:

那个是执行系统存储过程

解决方案2:

你是要获取某个SQL SERVER实例下的所有数据库吗？
使用exec sp_databases即可

解决方案3:

function GetIPAddrByName(Name: string; var Ip: string): Boolean;
var
   wsdata : TWSAData;
   hostName : array [0..255] of char;
   hostEnt : PHostEnt;
   addr : PChar;
begin
   WSAStartup ($0101, wsdata);
   try
      Gethostname (hostName, sizeof (hostName));
      StrPCopy(hostName, Name);
      hostEnt := gethostbyname (hostName);
      if Assigned (hostEnt) then
      begin
        if Assigned (hostEnt^.h_addr_list) then
        begin
            addr := hostEnt^.h_addr_list^;
            if Assigned (addr) then
            begin
                IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
                byte (addr [1]), byte (addr [2]), byte (addr [3])]);
                Result := True;
            end
            else
               Result := False;
        end
        else
            Result := False;
      end
      else
      begin
         Result := False;
      end;
   finally
        WSACleanup;
   end
end;
通过主机名取到IP