Получить список всех компьютеров в сети.

← →
yel (2006-10-20 10:45) [0]

Здравствуйте.
Не подскажите, как получить список всех компьютеров в сети?
Заранее спасибо.

← →
SergKon © (2006-10-20 10:48) [1]

procedure TChatForm.FindAllComputers(Workgroup: string);
var
EnumHandle: THandle;
WorkgroupRS: TNetResource;
Buf: array[1..500] of TNetResource;
BufSize: Cardinal; //Integer;
Entries: Cardinal;
Result: Cardinal;
begin
ComputerCount:=0;
Workgroup:=Workgroup + #0;
FillChar(WorkgroupRS, SizeOf(WorkgroupRS), 0);
with WorkgroupRS do begin
dwScope:=2;
dwType:=3;
dwDisplayType:=1;
dwUsage:=2;
lpRemoteName:=@Workgroup[1];
end;
WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle);
repeat
Entries:=1;
BufSize:=SizeOf(Buf);
Result:=WNetEnumResource(EnumHandle, Entries, @Buf, BufSize);
if (Result = NO_ERROR) and (Entries = 1) then begin
Inc(ComputerCount);
Computer[ComputerCount]:=StrPas(Buf[1].lpRemoteName);
end;
until (Entries <> 1) or (Result <> NO_ERROR);
WNetCloseEnum(EnumHandle);
end;

← →
Правильный Вася (2006-10-20 11:16) [2]

какой сети?

← →
yel (2006-10-20 11:20) [3]

> Правильный Вася (20.10.06 11:16) [2]
> какой сети?

локальной :)
но то что написал SergKon © (20.10.06 10:48) [1]
работает и очень хорошо (спасибо ему)

еще бы неплохо былобы получить рабочую группу

← →
Правильный Вася (2006-10-20 11:38) [4]

а если на компе несколько сетевух и каждая в свою сеть смотрит?

TO yel: Не за что

> если на компе несколько сетевух и каждая в свою сеть смотрит?

...то вышеуказанный пример все равно будет работать

Получить список всех компьютеров в сети. Найти похожие ветки