Как определить все IP адреса включенных компов в локальной сети.

← →
Yrasikombo (2003-09-29 14:56) [0]

Очень нужно!!! И пожалуйста, если можно, весь текст модуля или кидайте прямо на Yza@mail.kz

← →
Е-Моё имя © (2003-09-29 15:09) [1]

выслал, лови

← →
Polevi © (2003-09-29 15:22) [2]

и я выслал, и еще перевод на почте получи

← →
Yrasikombo (2003-09-29 16:39) [3]

Спасибо за участие

← →
Е-Моё имя © (2003-09-29 16:44) [4]

всегда рады помочь

← →
Yrasikombo (2003-09-29 17:01) [5]

но ящик (yza@mail.kz) пуст

← →
Е-Моё имя © (2003-09-29 17:26) [6]

канал на казахстан через австралию идет
ждать долго надо

← →
Yrasikombo (2003-09-30 11:12) [7]

?????????????????

← →
Polevi © (2003-09-30 11:32) [8]

интернет сломался

← →
Yrasikombo (2003-09-30 13:18) [9]

Я не втом смысле написал ????..., просто, чтобы вопрос мой не вышел из страницы, так как я жду ответа от нормального человека, который действительно знает как определить Ip адреса компов, а не от человека, который только и может лясы точить.

← →
Е-Моё имя © (2003-09-30 13:21) [10]

аааа
ну жди...

← →
Yrasikombo (2003-09-30 13:39) [11]

Посмотрим, на что ты способен

← →
Anatoly Podgoretsky © (2003-09-30 13:47) [12]

Надо ходить по компьютерам и переписывать на бумажку.

← →
Yrasikombo (2003-09-30 13:53) [13]

Anatoly отдохни.

← →
Mero (2003-09-30 14:07) [14]

Удалено модератором

← →
Е-Моё имя © (2003-09-30 14:07) [15]

> [11] Yrasikombo (30.09.03 13:39)

могу копать
могу не копать

← →
Yrasikombo (2003-09-30 14:15) [16]

Удалено модератором

← →
Е-Моё имя © (2003-09-30 14:16) [17]

> [16] Yrasikombo (30.09.03 14:15)

ок
щас найду некрофил-затейник__а, возьму лопату да начну копать...

← →
Yrasikombo (2003-09-30 14:46) [18]

"Е-Моё имя" отдыхай. Надоел. Если не знаешь, то так и скажи.

← →
Е-Моё имя © (2003-09-30 14:50) [19]

Удалено модератором
Примечание: Не хами

← →
Verg © (2003-09-30 14:55) [20]

> такие вопросы раз в неделю задаются

Иногда они НЕ задаются толко раз в неделю...

← →
Anatoly Podgoretsky © (2003-09-30 15:11) [21]

Yrasikombo (30.09.03 13:53) [13]
Так ты не понял, что задача в такой постановке решения не имеет.

← →
Yrasikombo (2003-09-30 17:12) [22]

Нашелся знаток. А решение то имеет. Я и без вас уже нашел.

так вот и бывает- спустился с гор, нашел решение и обратно на горы полез...

в kz нет пальм вроде ;))

> Yrasikombo (30.09.03 17:12) [22]

ну вот, пришел, всех послал отдыхать, и ушел...
ишь ты... наполеон...

← →
Yrasikombo (2003-09-30 19:08) [27]

В великом Казахстане и гор та путем нет, одна степь, понятно.

← →
Woolen (2003-10-01 10:28) [28]

> В великом Казахстане

:-))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

> Yrasikombo

а с чего ты вообще взял, что каждый компьютер в лок.сети обязан иметь IP-адрес ?

компьютер в лок.сети может как вообще не иметь оного адреса, так и иметь оных косой десяток, причем - разных)

← →
Fay (2003-10-01 21:34) [30]

причём разных
8)

И невидимых снаружи

По моему вполне нормальный вопрос.
Как получить список машин в сети?

unit Main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TFormMain = class(TForm) TreeView: TTreeView; procedure FormCreate(Sender: TObject); private { Private declarations } procedure LoadNetResources; procedure EnumSubResources(Items: TTreeNodes; Node: TTreeNode; lpNetResource: PNetResource); public { Public declarations } end; var FormMain: TFormMain; implementation {$R *.DFM} procedure TFormMain.FormCreate(Sender: TObject); begin LoadNetResources; end; procedure TFormMain.LoadNetResources; begin with TreeView.Items do begin BeginUpdate; Clear; Add(nil, "Вся сеть"); EnumSubResources(TreeView.Items, Item[0], nil); EndUpdate; end; end; procedure TFormMain.EnumSubResources(Items: TTreeNodes; Node: TTreeNode; lpNetResource: PNetResource); const MAX_RES = 16; type PResources = ^TResources; TResources = array[0..MAX_RES-1] of TNetResource; var hEnum: THandle; Count: Integer; Res: Integer; Resources: PResources; BufferSize: Integer; I: Integer; NewNode: TTreeNode; NewNodeName: String; begin // Открываем доступ к перечню сетевых ресурсов Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, lpNetResource, hEnum); if NO_ERROR <> Res then Exit; // Массив, в который читаются сетевые ресурсы BufferSize := SizeOf(TResources); GetMem(Resources, BufferSize); while True do begin // Загружаем перечень ресурсов в массив // Если возникла ошибка, значит, ресурсов больше нет --- покидаем цикл Count := MAX_RES; Res := WNetEnumResource(hEnum, Count, Resources, BufferSize); if (Res <> NO_ERROR) and (Res <> ERROR_MORE_DATA) then Break; // В противном случае копируем сетевые ресурсы в дерево for I := 0 to Count - 1 do begin // Добавляем дочерний узел if Assigned(Resources^[I].lpRemoteName) then NewNodeName := String(Resources^[I].lpRemoteName) else NewNodeName := String(Resources^[I].lpComment); NewNode := Items.AddChild(Node, NewNodeName); // Вызываем процедуру рекурсивно для заполнения этого узла, // если узел содержит подузлы if (Resources^[I].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0 then EnumSubResources(Items, NewNode, @(Resources^[I])); end; end; FreeMem(Resources); // Закрываем доступ WNetCloseEnum(hEnum); end; end.

Как определить все IP адреса включенных компов в локальной сети. Найти похожие ветки