Equipos conectados en red

Prueba esto:
procedure EnumNetResources(List: TStrings);
procedure EnumFunc(NetResource: PNetResource);
var
Enum: THandle;
Count, BufferSize: DWORD;
Buffer: array[0..16384 div SizeOf(TNetResource)] of TNetResource;
i: Integer;
CommaText: String;
Name: String;
begin
if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0,
NetResource,Enum) = NO_ERROR then
try
Count := $FFFFFFFF;
BufferSize := SizeOf(Buffer);
CommaText := '';
while WNetEnumResource(Enum, Count, @Buffer, BufferSize) = NO_ERROR do
begin
for i := 0 to Count - 1 do
begin
if Buffer.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER then
begin
Name := UpperCase(Buffer.lpRemoteName);
Delete(Name,1,2);
List.Add(Name);
end;
if (Buffer.dwUsage and RESOURCEUSAGE_CONTAINER) > 0 then
EnumFunc(@Buffer)
end;
if(CommaText <> '')then
end;
List.CommaText := List.CommaText+','+CommaText;
finally
WNetCloseEnum(Enum);
end;
end;
begin
EnumFunc(nil);
end;