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

Определение настроек сети   Найти похожие ветки 

← →
Alexandr VZ   (2003-03-11 20:04) [0]

Здравствуйте
Необходимо получить данные о машине:
1 - установленные протоколы (TCP/IP, IPX ...)
2 - IP адрес машины
3 - Сетевое имя
А также необходимо пинговать машины в сети
Все это надо по 98 (2К желательно но можно и обойтись)

PS Тут ниже был пример опред IP, но на всех машинах на которых проверял он определял неизвестно что :-(

---

← →
Malder ©   (2003-03-11 23:56) [1]

>1 - установленные протоколы (TCP/IP, IPX ...)

Зачем ?

>2- IP адрес машины

НЕОДНОКРАТНО обсуждалось

>3 - Сетевое имя

Что ты понимаешь под сетевым именем ?

>А также необходимо пинговать машины в сети

пример пинга точно есть в FAQ На этом сайте

Как и другие ответы на твои вопросы

---

← →
Malder ©   (2003-03-12 00:03) [2]

Ладно, не знаю, что за код определения IP ты смотрел, но вот тебе рабочий:

...
var WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
while (p.h_addr_list^ <> nil) do begin
memo1.Lines.Add(inet_ntoa(PInAddr(p.h_addr_list^)^));
inc(p.h_addr_list);
end;
WSACleanup;
end;

---

← →
Malder ©   (2003-03-12 00:05) [3]

ты winsock не забыл в uses добавить ?

---

← →
Alexandr VZ   (2003-03-12 05:36) [4]

1 одно из самых важных (и последнее что еще не сделано). Идет перепись населения сети :-) Какие компы на местах (основные параметры), что устоновлено. Хотелось бы скинуть всем программку, чтоб все ее запуситили и она скинет мне всю инфу о машине (А то обходить всех с блокнотом ....)

---

← →
ws ©   (2003-03-12 08:30) [5]

Почти аналогичную программку пишу, только дополненную локальной аськой. Могу скинуть некоторые детали. Будет готово - выложу на сайт.

---

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

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



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