| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Определение настроек сети [D5, Win95/98, Win2k]
Alexandr VZ © (2003-03-11 20:04:00)Здравствуйте
Необходимо получить данные о машине:
1 - установленные протоколы (TCP/IP, IPX ...)
2 - IP адрес машины
3 - Сетевое имя
А также необходимо пинговать машины в сети
Все это надо по 98 (2К желательно но можно и обойтись)
PS Тут ниже был пример опред IP, но на всех машинах на которых проверял он определял неизвестно что :-(
ws (2003-03-12 08:30:00) [1]Почти аналогичную программку пишу, только дополненную локальной аськой. Могу скинуть некоторые детали. Будет готово - выложу на сайт.
Alexandr VZ (2003-03-12 05:36:00) [2]1 одно из самых важных (и последнее что еще не сделано). Идет перепись населения сети :-) Какие компы на местах (основные параметры), что устоновлено. Хотелось бы скинуть всем программку, чтоб все ее запуситили и она скинет мне всю инфу о машине (А то обходить всех с блокнотом ....)
Malder (2003-03-12 00:05:00) [3]ты
winsockне забыл в uses добавить ?
Malder (2003-03-12 00:03:00) [4]Ладно, не знаю, что за код определения 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-11 23:56:00) [5]>1 - установленные протоколы (TCP/IP, IPX ...)
Зачем ?
>2- IP адрес машины
НЕОДНОКРАТНО обсуждалось
>3 - Сетевое имя
Что ты понимаешь под сетевым именем ?
>А также необходимо пинговать машины в сети
пример пинга точно есть в FAQ На этом сайте
Как и другие ответы на твои вопросы
| |
