VPF::имя компа - Форум программистов

ежик

Дата 25.1.2006, 08:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 19.9.2005
Где: Южно-Сахалинск

Репутация: нет
Всего: 1

Вопрос такой:
зная IP (192.168.0.1) другого компа я могу узнать имя компа (Vasya)
OS Windows 98, XP, 2000
И если будет включен Firewall

--------------------

Прежде чем задать вопрос прочитай инфу!!!

Sadok

Дата 25.1.2006, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

Для '98 не в курсе, для остальных парсить вывод nbtstat -A ip_addr

korob2001

Дата 25.1.2006, 16:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Код


#!/usr/bin/perl -w
use strict;
use Socket;

my $ip = "127.0.0.1";
my $name = gethostbyaddr(inet_aton($ip),AF_INET);
print "$name\n";

Кстати, можно обойтись и без модуля Socket, но для этоот придётся в ручную, с помощью pack() упаковать IP в двоичное представление:

Код


#!/usr/bin/perl -w
use strict;

my $ip = "127.0.0.1";
my($b1,$b2,$b3,$b4) = split(/\./, $ip);
my $bitip = pack("C4", $b1,$b2,$b3,$b4);

my $host = gethostbyaddr($bitip, 2);
print $host, "\n";

Это сообщение отредактировал(а) korob2001 - 25.1.2006, 16:28

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

finderknowledge

Дата 26.1.2006, 09:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.11.2005

Репутация: нет
Всего: нет

или можно так:

Код


my $bitip = v127.0.0.1;
my $host = gethostbyaddr($bitip, 2);    
print $host, "\n";

ежик

Дата 26.1.2006, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 19.9.2005
Где: Южно-Сахалинск

Репутация: нет
Всего: 1

Да я взял модуль NET::NBName
и не парился

--------------------

Прежде чем задать вопрос прочитай инфу!!!

korob2001

Дата 26.1.2006, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Цитата

Да я взял модуль NET::NBName
и не парился

Ну если не парился, нафига тогда вопрос задавал?

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

BlackLFL

Дата 26.1.2006, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 1
Всего: 12

Цитата(ежик @ 26.1.2006, 10:51

)

Да я взял модуль NET::NBName
и не парился

Вам подробно расписали, хотя бы спасибо сказали!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »