Текущий архив: 2003.02.27;
Скачать: CL | DM;

Вниз

Есть ли у кого пример... Какие компы есть в лок. сети...   Найти похожие ветки 

← →
NewGuest   (2003-01-05 18:22) [0]

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

---

← →
Anatoly Podgoretsky ©   (2003-01-05 18:30) [1]

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

---

← →
NewGuest   (2003-01-05 18:34) [2]

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

---

← →
Anatoly Podgoretsky ©   (2003-01-05 18:35) [3]

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

---

← →
NewGuest   (2003-01-05 23:09) [4]

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

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



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 }

---

← →
Rouse_ ©   (2003-01-05 23:28) [5]

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

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

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

---

← →
NewGuest   (2003-01-07 23:13) [6]

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

---

← →
Verg ©   (2003-01-08 10:59) [7]

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

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

---

← →
NewGuest   (2003-01-08 22:27) [8]

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

---

← →
Mischka ©   (2003-01-09 11:20) [9]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.27;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.017 c