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

Question

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

Answer 1

用API函数WNetEnumResource 首先枚举工作组，再对每个工作组枚举用户————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

调用FindComputers，返回WinAPI错误代码（如果有的话）。这个函数将会在TStringList类型的Computers对象中填入计算机名称。
Answer:unit FindComp;
interface
usesWindows, Classes;
function FindComputers: DWORD;
varComputers: TStringList;
implementation
usesSysUtils;
constMaxEntries = 250;
function FindComputers: DWORD;
varEnumWorkGroupHandle, 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 dobegindwScope := RESOURCE_GLOBALNET;dwType := RESOURCETYPE_ANY;dwUsage := RESOURCEUSAGE_CONTAINER;end;
EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @Network, EnumWorkGroupHandle);
if EnumError = NO_ERROR thenbeginWorkGroupEntries := MaxEntries;EnumBufferLength := SizeOf(EnumWorkGroupBuffer);EnumError := WNetEnumResource(EnumWorkGroupHandle, WorkGroupEntries, @EnumWorkGroupBuffer, EnumBufferLength);
if EnumError = NO_ERROR thenbeginfor I := 1 to WorkGroupEntries dobeginEnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumWorkGroupBuffer[I], EnumComputerHandle);if EnumError = NO_ERROR thenbeginComputerEntries := MaxEntries;EnumBufferLength := SizeOf(EnumComputerBuffer);EnumError := WNetEnumResource(EnumComputerHandle, ComputerEntries, @EnumComputerBuffer, EnumBufferLength);if EnumError = NO_ERROR thenfor J := 1 to ComputerEntries doComputers.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 thenEnumError := NO_ERROR;Result := EnumError;
end;
initialization
Computers := TStringList.Create;
finalization
Computers.Free;
end. 

Answer 7

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

Answer 8

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