Скачать: CL | DM;

Как можно программно получить список компьютеров в лок.сети?   Найти похожие ветки 

← →
Krok   (2002-05-13 14:23) [0]

Как можно программно получить список компьютеров в лок.сети?
Тот, который показывается при нажатии на иконку "Мое сетевое окружение"

---

← →
Krok   (2002-05-13 14:26) [1]

Задача: тем или иным образом получить имя компьютера на котором зарегистрирован некоторый DCOM-сервер. Идея - перебрать все... А как?

---

← →
VuDZ ©   (2002-05-13 14:28) [2]

WNetEnumResources() если не ошибаюсь - MSDN"а пока нету под рукой

---

← →
Song ©   (2002-05-13 14:50) [3]

В FAQ есть.

---

← →
vuk ©   (2002-05-13 14:58) [4]

Если для WinNT/2000/XP, то пример здесь:
http://delphibase.endimus.com/?action=viewfunc&topic=netlan&index=1

---

← →
Yuri Btr ©   (2002-05-14 10:45) [5]

У Димки Маслова есть хороший пример - findcomp.zip
Поищи в кладовке.

---

← →
Zak ©   (2002-05-15 07:07) [6]

Как найти все компьютеры в рабочей группе?

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; { Find All Computers }

---

← →
Dimka Maslov ©   (2002-05-15 09:35) [7]

http://downloads.endmius.com/findcomp.zip

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c