perl 扫描域名，ip地址，mac地址， 服务器开放端口信息

script 说明：

 

该script可以扫描指定服务器的如下信息，并发邮件通知。 用来自动创建服务器管理文档也很有效。
包括：域名，ip地址，mac地址， 服务器开放的端口。

 

#!/usr/bin/perl -w 
use strict; 
use Mail::Sender; 
my @servers=qw(10.13.55.1 10.13.55.2 10.13.55.3); #在这里添加需要扫描的主机
foreach my $host (@servers) { 
        my $nmap=`nmap -O $host`; 
        open (AF, '>nmap_scan') or die "open error: $!\n"; 
        print AF $nmap; 
        close(AF); 
        my @results; 
        my @port; 
        open (INPO, 'nmap_scan'); 
        foreach my $list (<INPO>) { 
                chomp($list); 
                if (Match_word($list)) { 
                        push(@results, Match_word($list)); 
                }; 
                if (Match_port($list)) { 
                        push(@port, Match_port($list)); 
                }; 
        }; 
        close(INPO); 
        print "@results\n"; 
        @port=join("/", @port); 
        print "opened port: @port\n\n"; 
        @results=undef; 
        @port=undef; 
}; 
 
 
sub Match_word { 
        my @lists; 
        my @result; 
        my @ser_port; 
        my $list=shift; 
        if ($list=~/^Nmap scan report for/) { 
                @lists=split(/\s/, $list); 
                $lists[5]=~s/[(|)|\s+]//g; 
                push(@result, $lists[4], $lists[5]); 
                return @result; 
        }; 
 
        if ($list=~/^MAC/) { 
                @lists=split(/\s/, $list); 
                $lists[2]=~s/\s+//g; 
                return $lists[2]; 
        }; 
 
 
        if ($list=~/^Running/) { 
                @lists=split(/:\s/, $list); 
                return $lists[1]; 
 
        }; 
} 
 
sub Match_port { 
        my $list=shift; 
        if ($list=~/open/) { 
                my @lists=split(/\s+/, $list); 
                my @aaa=split(/\//, $lists[0]); 
                return "$aaa[0]"; 
        }; 
} 
sub Send_mail { 
        my $subject=shift; 
        my $msg=shift; 
my $sender=new Mail::Sender->MailMsg({ 
         smtp => 'mail.aaa.com', 
         from => '[e-mail]', 
         to =>'[e-mail]', 
         subject => $subject, 
         msg => $msg, 
         auth => 'LOGIN', 
         authid => 'neo', 
         authpwd => '1234',} 
) or die "$Mail::Sender::Error\n"; 
print "Mail sent ok"; 
} 

 

script 执行结果：
包括：域名，ip地址，mac地址， 服务器开放的端口。

root@ubuntu:~/script# perl services_info_scan

link.aaa.com.cn 10.13.55.1 00:0D:48:09:02:0B

opened port: 22/80/443/2005


fs.aaa.com.cn 10.13.55.2 00:1F:C6:14:1F:9E Microsoft Windows 2003

opened port: 53/80/88/135/389/445/464/593/636/1025/1027/1036/1060/1723/2000/3268/3269/3389


mail.aaa.com.cn 10.13.55.3 00:0C:29:D9:58:6E Linux 2.4.X

opened port: 22/25/53/110/111/143/587/3000/32768