1,594
社区成员
发帖
与我相关
我的任务
分享请问如何枚举本机的所有的网卡和modem，并且获得他们的名称，IP地址和子网掩码？
请问如何枚举本机的所有的网卡和modem，并且获得他们的名称，IP地址和子网掩码,多谢了。能给原码最好。
...全文
请发表友善的回复…
发表回复
Rex_love_Burger 2004-07-09
- 打赏
- 举报
up
yccai 2004-07-09
- 打赏
- 举报
用Microsoft Windows IP Helper API.也可以。
留下email
留下email
yccai 2004-07-09
- 打赏
- 举报
用snmp可以做到。网上有例子下的。
xiaochai123 2004-07-09
- 打赏
- 举报
fei19790920(饭桶的马甲) :你这个方法能获得网卡的全名吗，
我用GetAdaptersInfo无法获得网卡的全名只能获得部分的。
我用GetAdaptersInfo无法获得网卡的全名只能获得部分的。
fei19790920 2004-07-08
- 打赏
- 举报
//支持多网卡
use ...,winsock;
...
function getIPs: TStrings;
type
TaPInAddr = Array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result:=TStringList.Create;
Result.Clear;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[I] <> nil do
begin
Result.Add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;
use ...,winsock;
...
function getIPs: TStrings;
type
TaPInAddr = Array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: Array[0..63] of Char;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result:=TStringList.Create;
Result.Clear;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[I] <> nil do
begin
Result.Add(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;
sxy_9761 2004-07-08
- 打赏
- 举报
NetBios
Rex_love_Burger 2004-07-08
- 打赏
- 举报
邮箱拿来，发给你
xiaochai123 2004-07-08
- 打赏
- 举报
GetAdaptersInfo是SDK中的函数，但在delphi中无法调用，请问该如何处理？
htyx 2004-07-07
- 打赏
- 举报
先做个记号
