無線LANブリッジのIPアドレスを探せ

実家に帰省中なわけですが、実家のネット環境がちょっとしょぼかったので無線化することに。で、家から持って帰ってきた余ってた無線LANブリッジを接続したまではよかったものの、ブリッジのIPが分からず管理画面にアクセスできない! メルコの製品だから 192.168.11. にあるというところまでは分かってるけどそこから先が分かりません。

どうやってアドレス探そうかなー、となんかそういう時に使うツールもありそうなもんですが、

#!/usr/local/bin/perl
use strict;
use warnings;
use Net::Ping;
use Term::ANSIColor qw(:constants);

$Term::ANSIColor::AUTORESET = 1;

my $p = Net::Ping->new;
my $subnet = shift || '192.168.0.';

for (1..254) {
    my $addr = $subnet . $_;
    print "pinging to $addr ... ";
    if ($p->ping($addr, 0.1)) {
        print BOLD GREEN "OK";
    } else {
        print BOLD RED "NG";
    }
    print "?n";
}

$p->close;

とスクリプトをすごい勢いで書いて実行すると。

find_ping.png

メルコの製品は工場出荷時設定では、ルーターは 192.168.11.1、ブリッジは 192.168.11.100 になるみたいですね。