Собственно интересует не тормозной способ получения списка всех компов заданного домена, при условии, что компов в сети переваливает за 300....и код нужен именно на Дельфях....
Может быть есть какие-то варианты выдрать эти данные из DHCP или AD? Хотя в DHCP эти данные могут оказаться наверное не совсем актуальными?
Вобщем помогите, горю!

-----
бессмысленные манипуляции не становятся более разумными если их повторять

| Сообщение посчитали полезным:

/cmd.exe arp -a ?

-----
HOW MUCH BLOOD WOULD YOU SHED TO STAY ALIVE

| Сообщение посчитали полезным:

ProTeuS пишет:
/cmd.exe arp -a ?
а с чего ты взял что все они будут в arp кэше?
и вообще - arp никакого отношения не имеет к доменам

| Сообщение посчитали полезным:

SecurAdmin
посмотри в сторону IADsDomain или WNetOpenEnum/WNetEnumResource (их использует плагин network для far)

| Сообщение посчитали полезным:

Тебе необходимо перечислить учетные записи домена и выбрать тип компьютер. Можно использовать NetUserEnum. Система сама обратится к IADsXXX функциям.

В свое время именно после такой же темы я бросил использовать Delphi. Постоянно отсутствовали аналоги .h и lib файлов.

| Сообщение посчитали полезным:

можно так, но тормоз всетаки присудствует

unit FindComp;

interface

uses
Windows, Classes;

function FindComputers: DWORD;

var
Computers: TStringList;

implementation

uses
SysUtils;

const
MaxEntries = 250;

function FindComputers: DWORD;

var
EnumWorkGroupHandle, 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 do
begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_ANY;
dwUsage := RESOURCEUSAGE_CONTAINER;
end;

EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @Network, EnumWorkGroupHandle);

if EnumError = NO_ERROR then
begin
WorkGroupEntries := MaxEntries;
EnumBufferLength := SizeOf(EnumWorkGroupBuffer);
EnumError := WNetEnumResource(EnumWorkGroupHandle, WorkGroupEntries, @EnumWorkGroupBuffer, EnumBufferLength);

if EnumError = NO_ERROR then
begin
for I := 1 to WorkGroupEntries do
begin
EnumError := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @EnumWorkGroupBuffer[I], EnumComputerHandle);
if EnumError = NO_ERROR then
begin
ComputerEntries := MaxEntries;
EnumBufferLength := SizeOf(EnumComputerBuffer);
EnumError := WNetEnumResource(EnumComputerHandle, ComputerEntries, @EnumComputerBuffer, EnumBufferLength);
if EnumError = NO_ERROR then
for J := 1 to ComputerEntries do
Computers.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 then
EnumError := NO_ERROR;
Result := EnumError;

end;

initialization

Computers := TStringList.Create;

finalization

Computers.Free;

end.

| Сообщение посчитали полезным:

Попробуй вот это: rouse.drkb.ru/network.php#domaininfo
У меня не тормозило никогда

| Сообщение посчитали полезным: