| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Есть ли у кого пример... Какие компы есть в лок. сети... [D7, Win2k]

NewGuest ©   (2003-01-05 18:22:00) 

Причем мне нужно видеть и те компы, кот. не видно через сетевое окружение... т.е. все компы кот. воткнуты в хаб!

---

Mischka   (2003-01-09 11:20:00) [1]

напиши мне на xenopont@mail.ru, я такую прогу делал. Получилось, видит все компы, которые ты хочешь. Пингует любые диапазоны адресов, и очень даже быстро.

---

NewGuest   (2003-01-08 22:27:00) [2]

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

---

Verg   (2003-01-08 10:59:00) [3]

Если комп видно через WNetEnumResource, то через сетевое окружение он будет виден точно. Это я про...

> и те компы, кот. не видно через сетевое окружение... т.е.
> все компы кот. воткнуты в хаб!

---

NewGuest   (2003-01-07 23:13:00) [4]

Обязательно выложу исправленный код... если найду решение этой задачи...

---

Rouse_   (2003-01-05 23:28:00) [5]

Хотел конечно погорячиться, но сдержусь.
Вопрос к никому.
Зачем задавать вопрос из FAQ?

Желаю успехов

ЗЫ: NewGuest С Вашей стороны былобы любезно не использование данного примера а его оптимизация и приведение его исправленного варианта, да хотябы даже в этой ветке. только в данном случае получится толк от заданного вопроса. Ведь только полученая собственными усилиями информация откладывается в нашей памяти.

---

NewGuest   (2003-01-05 23:09:00) [6]

И чего... про пингуй я и сам знал... что как то так... вы могли бы ещё сказать, мол, позвони да спроси вкл. или нет...

вот в кладовке откопал...
я спрашиваю есть нечто этого, потому что вы мне всё равно писать программу не будете... а я и подавно (не смогу)...
А пингуй это не ответ...



Var
EnumHandle : THandle;
WorkgroupRS : TNetResource;
Buf : Array[1..500] of TNetResource;
BufSize : Cardinal;
Entries : Cardinal;
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; { Find All Computers }

---

Anatoly Podgoretsky   (2003-01-05 18:35:00) [7]

Ну как же они же тоже воткнуты в хаб
Пингуй ВСЮ сеть, так как допустим весь диапазон адресов

---

NewGuest   (2003-01-05 18:34:00) [8]

выключенные не надо...

---

Anatoly Podgoretsky   (2003-01-05 18:30:00) [9]

То есть выключенные :-)

---

Наверх