如何在局域网内获取主机（服务器）IP地址！

Question

如何在局域网内获取主机（服务器）IP地址！

Answer 1

xiaoqlj(我独我孤)：楼主应该不是那个意思，而是直接获取代理服务器的ip用API应该可以

Answer 2

winexec('cmd /k ping tjf>c:\aa.txt',SW_HIDE);//tjf是服务器主机名
fileopen('c:\aa.txt',FILE_SHARE_READ or FILE_SHARE_WRITE);
memo1.Lines.LoadFromFile('c:\aa.txt');即可。

Answer 3

晕倒.有跟没有没区别..
你必须知道服务器的名字..或者它的MAC之类的..不然怎么找啊.???AAA

Answer 4

是否代理，是否在域中？是不是SQL服务器？

Answer 5

通过机器名得到IP地址   
function procedure TForm1.nametoip(name:string):string;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
result:='';
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(name));
if HostEnt <> nil then
begin
with HostEnt^ do
result:= Format('%d.%d.%d.%d', [Byte(h_addr^[0]), Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
end;
WSACleanup;
end;