[Agasfer2010]

Доброе всем времени суток! Может уже и повторяю тему, просто очень нужно. Нужно видеть все компьютеры(под управлением линукса и виндовс) в локальной сети, но не ограничиться одной рабочей группой. Нужны именно ВСЕ компы. И знать их статус(он или офф лайн). В примерах вроде нашёл подобное, но оно чё-то не робит((( Помогите плиз! А ещё, если это не трудно, то и с сетевыми принтерами можно сделать то же самое)))

[Agasfer2010]

Скажите хотябы, такое вообще возможно?

[NumLock]

очень давно (судя по дате NetRes.res 1999г.) что-то похожее писал http://data.cod.ru/79106
основной момент

Код:

...
function Tfrm.EnumerateFunc(NetResource: PNetResource): boolean;
type
    PNetResourceArray=^TNetResourceArray;
    TNetResourceArray=array[0..MaxInt div SizeOf(TNetResource) - 1] of TNetResource;
var
   NetResult: integer;
   NetHandle: THandle;
   NetResources: PNetResourceArray;
   BufSize: dword;
   Count, Size: dword;
   i: integer;
   NR: TNetResource;
begin
     result:=false;
     NetResources:=nil;
     BufSize:=0;
     NetResult:=WNetOpenEnum(RESOURCE_GLOBALNET,
                  RESOURCETYPE_ANY,
                  0,
                  NetResource,
                  NetHandle);
     Application.ProcessMessages;
     if NetResult<>NO_ERROR then Exit;
     try
       BufSize:=1024*SizeOf(PNetResource);
       GetMem(NetResources, BufSize);
       while true do
       begin
         Count:=$0ffffffff;
         Size:=BufSize;
         NetResult:=WNetEnumResource(NetHandle,
                                     Count,
                                     NetResources,
                                     Size);
         if NetResult<>NO_ERROR then break;
         for i:=0 to Count-1 do
         begin
           Application.ProcessMessages;
           NR:=NetResources^[i];
           AddTreeView(NR);
           if RESOURCEUSAGE_CONTAINER=(NR.dwUsage and RESOURCEUSAGE_CONTAINER) then
             EnumerateFunc(@NetResources[i]);
         end;
       end;
     finally
       FreeMem(NetResources, BufSize);
     end;
     WNetCloseEnum(NetHandle);
     result:=true;
end;
...

[Agasfer2010]

Та ссылка устарела... Файла нету. А как работает фукция эта? что ей надо давать и что возвращает?

[NumLock]

http://data.cod.ru/79784