Форум: "Сети";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Вниз
Есть ли у кого пример... Какие компы есть в лок. сети... Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
