列举局域网内的所有计算机的问题，看起来简单，做起来困难。

[flyingrey]

我想要做一个列举局域网内所有计算机的程序。
思路1，列举工作组。
结果：可以找到所有安装了文件和打印共享的计算机，没有安装的找不到。
思路2：ping 本IP段内的计算机。比如192.168.0.xxx
结果：本IP段内的计算机可以列举出，但是其他IP段内的计算机无法找到。
而且安装了防火墙的计算机找不到，不过听说使用UDP包进行查询会绕开防火墙。
思路3：嗅探网络包的传送。
结果：在集线器的网络环境下可以找到所有网络内的计算机。但是在交换机的网络环境下，找不到所有计算机，只能侦听到和本机处于一个交换机上的机器。
我想要问，有没有一个方法，无论在任何情况下，都可以列举出局域网内所有的所有的计算机。（我要的是所有的计算机）
要求是：只要他安装了TCP/IP协议就可以找到他。
并且，我不一定是在网关服务器上。
也就是说，我在任何一台局域网内的机器上都可以知道现在局域网内有多少台机器在运行，他们的IP地址都是什么。
希望高手给予解答，这个问题我思考了很久，还是没有找到完满的解决方法。
解答完满的话，给分不是问题。要多少分都给。

[lxpbuaa]

用API函数WNetEnumResource 首先枚举工作组，再对每个工作组枚举用户

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[pandengzhe]

哇，非嗅探莫属！

没做过，应该不太难

[flyingrey]

TO DWGZ()
东西我收到了,和我做的网络列举的东西差不多.
不过对没有安装"文件和打印共享"的程序还是列举不出来.
有没有更好的办法啊?
这个问题实在是很挠头.
说说解决的思路就可以.

[COCO_AS]

up

[Alexs]

我顶死你们，哈哈！

[DWGZ]

我收集了一个发送你给个邮箱吧， 贴不下

[flyingrey]

TO lxpbuaa(桂枝香在故国晚秋) ：
我在题目中说了，列举工作组和用户的方法，对没有安装“文件和打印共享”的计算机是列举不出来的。
TO pandengzhe(攀登者) ：
我在题目中也说过了，嗅探的方法对网络内是交换机的网络不起作用。
谢谢 DWGZ() ，我的邮箱是[e-mail]

[Alexs]

我试试看

[huang_gong]

ping 网内所有计算机
利用TCP扫描方式扫描所有计算机(Syn等)
发送UDP137端口包

[pandengzhe]

靠一种方法应该不行
多种方法一起用

[34535345345345345345]

http://www.delphibbs.com/delphibbs/dispq.asp?lid=608081

[雨后阳光2000]

调用FindComputers，返回WinAPI错误代码（如果有的话）。这个函数将会在TStringList类型的Computers对象中填入计算机名称。


Answer:



unit FindComp;


interface


uses

Windows, Classes;


function FindComputers: DWORD;


var

Computers: TStringList;


implementation


uses

SysUtils;


const

MaxEntries = 250;


function FindComputers: DWORD;


var

EnumWorkGroupHandle, EnumComputerHandle: THandle;

EnumError: DWORD;

Network: TNetResource;

WorkGroupEntries, ComputerEntries: DWORD;

EnumWorkGroupBuffer, EnumComputerBuffer: array[1..MaxEntries] of TNetResource;

EnumBufferLength: DWORD;

I, J: DWORD;


begin


Computers.Clear;


FillChar(Network, SizeOf(Network), 0);

with Network do

begin

dwScope := RESOURCE_GLOBALNET;

dwType := RESOURCETYPE_ANY;

dwUsage := RESOURCEUSAGE_CONTAINER;

end;


EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @Network, EnumWorkGroupHandle);


if EnumError = NO_ERROR then

begin

WorkGroupEntries := MaxEntries;

EnumBufferLength := SizeOf(EnumWorkGroupBuffer);

EnumError := WNetEnumResource(EnumWorkGroupHandle, WorkGroupEntries, @EnumWorkGroupBuffer, EnumBufferLength);


if EnumError = NO_ERROR then

begin

for I := 1 to WorkGroupEntries do

begin

EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumWorkGroupBuffer[I], EnumComputerHandle);

if EnumError = NO_ERROR then

begin

ComputerEntries := MaxEntries;

EnumBufferLength := SizeOf(EnumComputerBuffer);

EnumError := WNetEnumResource(EnumComputerHandle, ComputerEntries, @EnumComputerBuffer, EnumBufferLength);

if EnumError = NO_ERROR then

for J := 1 to ComputerEntries do

Computers.Add(Copy(EnumComputerBuffer[J].lpRemoteName, 3, Length(EnumComputerBuffer[J].lpRemoteName) - 2));

WNetCloseEnum(EnumComputerHandle);

end;

end;

end;

WNetCloseEnum(EnumWorkGroupHandle);

end;


if EnumError = ERROR_NO_MORE_ITEMS then

EnumError := NO_ERROR;

Result := EnumError;


end;


initialization


Computers := TStringList.Create;


finalization


Computers.Free;


end.

[flyingrey]

NO
这些都解决不了根本问题的。

[haoguozhong]

收藏

[halfdream]

如果只通过TCP/IP考虑,应该是无法搞定的..

[huang_gong]

思路1，列举工作组。
思路2：ping 本IP段内的计算机。比如192.168.0.xxx
结果：本IP段内的计算机可以列举出，但是其他IP段内的计算机无法找到。
: 可以的。我做的都可以找到跨路由的。
而且安装了防火墙的计算机找不到，不过听说使用UDP包进行查询会绕开防火墙。
:是找不到。UDP也不行。使用SYN等其他扫描可能可以找到。
思路3：嗅探网络包的传送。
结果：在集线器的网络环境下可以找到所有网络内的计算机。但是在交换机的网络环境 下，找不到所有计算机，只能侦听到和本机处于一个交换机上的机器。
:我觉得可以主动发包去探测。（要不得在交换机上想办法)
也可以增加个网管功能吧？