Насчет моего примера: я тебе привел пример на глаз, не проверяя, и не знаю, в чем у тебя была проблема, но вот этот пример работает (находит все компы в сети):
| Код | procedure NetEnumerate(NetRes : PNetResource);
type
PResArray = ^TResArray;
TResArray = array [0..$FFFF] of TNetResource;
var
buf : PResArray;
i, Entries, bufSize : cardinal;
res : TNetResource;
EnumHandle : THandle;
begin
if NetRes <> nil then res := NetRes^
else
with res do
begin
FillChar(res, SizeOf(res), 0);
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_ANY;
dwDisplayType := RESOURCEDISPLAYTYPE_GENERIC;
dwUsage := RESOURCEUSAGE_ALL;
lpRemoteName := nil;
end;
if WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_ANY, RESOURCEUSAGE_ALL, @res, EnumHandle) <> NO_ERROR then exit;
Entries := $FFFFFFFF;
bufSize := 16384;
GetMem (buf, bufSize);
WNetEnumResource(EnumHandle, Entries, buf, bufSize);
WNetCloseEnum(EnumHandle);
if Entries > 0 then
for i := 0 to Entries-1 do
begin
if (buf[i].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0 then NetEnumerate(@buf^[i]);
if (buf[i].dwDisplayType = RESOURCEDISPLAYTYPE_SERVER) then Form1.ListBox1.Items.Add(buf[i].lpRemoteName);
end;
FreeMem (buf);
end; |
Как видишь отличий от предыдущего практически нет, только добавлен код для начального енума.
Вызывается это дело так: NetEnumerate (nil);
Извини, что на Delphi, но думаю ничего сложного тут нет...
Вместо Form1.ListBox1.Items.Add(buf[i].lpRemoteName) подставь свой код - здесь в buf[i].lpRemoteName содержиться имя компа.
Можешь также юзать совместно с NetServerGetInfo для получения еще кое-какой дополнительной инфы... |
