Определение настроек сети

← →
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 одно из самых важных (и последнее что еще не сделано). Идет перепись населения сети :-) Какие компы на местах (основные параметры), что устоновлено. Хотелось бы скинуть всем программку, чтоб все ее запуситили и она скинет мне всю инфу о машине (А то обходить всех с блокнотом ....)

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

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