如何取得局域网的所有机器的IP地址（IP是动态分配的）?

2002-04-18 02:03:33 136 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Linux云计算之使用DHCP为局域网中的机器分配IP地址实战:使用DHCP为局域网中的机器分配IP地址首先为了避免和当前网络环境中DHCP冲突，我们使用虚拟机自定义的网络模式：使用VMnet2即可安装DHCP 1.使用yum进行安装。 [root@xuegod63 ~]# yum -y install dhcp #使用yum安装DHCP。 2.配置文件位置：主配置文件： [root@xuegod63 ~]# vim /etc/dhcp/dhcpd.conf # # DHCP Server Configuration file. # see / 阅读详情

...全文

计网|DNS,IP地址，MAC地址，物理地址，封装成帧网线/接口 (RJ-45, 光纤LC/SC, 同轴BNC, USB物理接口)，线缆标准 (双绞线Cat5e/6/7, 光纤单模/多模, 同轴)，物理层设备 (Hub, 中继器, 网卡物理部分)，传输技术 (以太网10/100/1000BASE-T, SONET/SDH, DSL物理层)HTTP/HTTPS, FTP/SFTP, SMTP/POP3/IMAP, DNS, DHCP, SNMP, Telnet/SSH, NFS/SMB, WebSocket, MQTT, 浏览器、邮件客户端等应用软件。阅读详情

arich

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

arich 2002-04-18

打赏
举报

要获取工作组用什么方法?

wylove 2002-04-18

打赏
举报

首先获取工作组中的所有计算机
var
Computer: Array[1..500] of String[25];
ComputerCount: Integer;

procedure FindAllComputers(Workgroup : String);
Var
EnumHandle: THandle;
WorkgroupRS: TNetResource;
Buf: Array[1..500] of TNetResource;
BufSize: Integer;
Entries: Integer;
Result: Integer;

begin
ComputerCount := 0;

Workgroup := Workgroup + #0;

FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);
With WorkgroupRS do begin
dwScope := 2;
dwType := 3;
dwDisplayType := 1;
dwUsage := 2;
lpRemoteName := @Workgroup[1];
end;

WNetOpenEnum( RESOURCE_GLOBALNET,
RESOURCETYPE_ANY,
0,
@WorkgroupRS,
EnumHandle );

Repeat
Entries := 1;
BufSize := SizeOf(Buf);

Result :=
WNetEnumResource( EnumHandle,
Entries,
@Buf,
BufSize );
If (Result = NO_ERROR) and (Entries = 1) then begin
Inc( ComputerCount );
Computer[ ComputerCount ] := StrPas(Buf[1].lpRemoteName);
end;
Until (Entries <> 1) or (Result <> NO_ERROR);

WNetCloseEnum( EnumHandle );
end;
然后将主机名解析成ip地址：
在use子句声明Winsock
function HostToIP(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
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
else begin
Result := False;
end;
finally
WSACleanup;
end
end;

如何取得局域网的所有机器的IP地址（IP是动态分配的）?

相关推荐