Difference between revisions of "Scan-subnet.pl"
From Organic Design wiki
(scan subnets) |
m |
||
| Line 1: | Line 1: | ||
| − | This little script uses [[w:nmap|nmap]] to give you a list of all the IP addresses in use on all the subnets on all active network interfaces on the host it is run on. It also gives the MAC address and a basic description for each | + | This little script uses [[w:nmap|nmap]] to give you a list of all the IP addresses in use on all the subnets on all active network interfaces on the host it is run on. It also gives the MAC address and a basic description for each. |
| + | {{lc}}{{code|<perl> | ||
| + | #!/usr/bin/perl | ||
| + | for ( qx( ifconfig ) =~ /inet addr:([0-9.]+)\.[0-9]+\s+Bcast:/g ) { | ||
| + | @_ = qx( nmap -nsL -O $_.0/24 ) =~ /^Host ([0-9.]+) not scanned.MAC Address: (.{17}).+?\((.+?).$/sgm; | ||
| + | while ( $#_ >= 0 ) { | ||
| + | ( $ip, $mac, $os ) = ( shift @_, shift @_, shift @_ ); | ||
| + | print "$ip\t [$mac] $os\n" | ||
| + | } | ||
| + | } | ||
| + | </perl>}} | ||
| + | |||
| + | |||
| + | |||
| + | |||
| + | '''Example output:''' | ||
{{code|<pre> | {{code|<pre> | ||
192.168.1.1 [00:21:29:08:91:44] Cisco-Linksys | 192.168.1.1 [00:21:29:08:91:44] Cisco-Linksys | ||
| Line 10: | Line 25: | ||
</pre>}} | </pre>}} | ||
| − | + | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
[[Category:PERL]] | [[Category:PERL]] | ||
Revision as of 09:12, 22 May 2009
This little script uses nmap to give you a list of all the IP addresses in use on all the subnets on all active network interfaces on the host it is run on. It also gives the MAC address and a basic description for each.
Example output:
