Приветствую всех!

Подскажите, пожалуйста, код для получения списка (Name/IP) компьютеров находящихся в данный момент в текущей рабочей группе.

Заранее благодарю!

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

Е-мое, гугл тебе в помощь. На каждом углу этот код валяется.

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

сорри что не на АСМ, но всё же:


var
Computer: array [1..500] of string[25];
ComputerCount: Integer;

procedure FindAllComputers(Workgroup: string);
var
EnumHandle: THandle;
WorkgroupRS: TNetResource;
Buf: array [1..500] of TNetResource;
BufSize: Integer;
Entries: Integer;
Result: Integer;
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;


-----
Nothing just happens. You choose it to happen.

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

2 Viktoro: да не на асьме у меня как раз есть

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

Ara пишет:
На каждом углу этот код валяется
Ни разу не встретил

Не уже ли ни у кого нет???

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

IvanStepkin пишет:
Ни разу не встретил
Тогда задай вопрос - как пользоваться поисковиками.

ixbt.wallst.ru/kzsf.html -Си
www.delphikingdom.ru/asp/viewitem.asp?catalogid=32 -Дельфи
www.relib.com/forums/thread885038.aspx -С++Билдер
rdpa.chat.ru/t_net.html - Дельфи
www.codeproject.com/csharp/csenumnetworkresources.asp - С#

В следующий раз за вопрос из поисковика будет бан.

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

Нет, проблем, вот и вопрос: как пользоваться поисковиком и найти код, КСТАТИ, на АССЕМБЛЕРЕ (читать внимательнее нужно).


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

IvanStepkin пишет:
2 Viktoro: да не на асьме у меня как раз есть
IvanStepkin пишет:
Нет, проблем, вот и вопрос: как пользоваться поисковиком и найти код, КСТАТИ, на АССЕМБЛЕРЕ (читать внимательнее нужно).

lol

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

IvanStepkin
Писать нормально нужно. А читаю я так, как написано: да не, на асьме у меня как раз есть
Купи лучше себе учебник русского языка и почитай внимательно раздел про пунктуацию, а то где надо - у тебя запятых нет, а куда не надо - лепишь.

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

Ну и что в итоге, как узнали точно, что нужно и поняли, что простым поиском не обойдёшься, так умолкли. Постить не по делу все умеют.

И ещё давно хотел сказать: в вопросе я специально явно не упомянул что нужно на ассемблере, ведь подфорум у нас по низкоуровневому программированию, я часто встречал такое: кто-то спрашивает, подскажите мне то-то на дельфи, например, а ему говорят, эй чувак, постой, у нас же низкоуровневый програминг, а стоит не сказать что асм, и вот «на те»: «ну на асьме у меня нет, держи на си».

Не понимаю

Всё, тема закрыта, кто рил может помочь отправьте код через ПМ.

Всем спасибо.

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