Difference between revisions of "Scan-subnet.pl"
From Organic Design wiki
m |
(more compact ;)) |
||
| Line 4: | Line 4: | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
for ( qx( ifconfig ) =~ /inet addr:([0-9.]+)\.[0-9]+\s+Bcast:/g ) { | for ( qx( ifconfig ) =~ /inet addr:([0-9.]+)\.[0-9]+\s+Bcast:/g ) { | ||
| − | @ | + | @i = qx( nmap -nsL -O $_.0/24 ) =~ /^Host ([0-9.]+) not scanned.MAC Address: (.{17}).+?\((.+?).$/sgm; |
| − | + | print "".shift @i."\t[".(shift @i)."] ".(shift @i)."\n" while $#i >= 0; | |
| − | |||
| − | |||
| − | |||
} | } | ||
</perl>}} | </perl>}} | ||
Revision as of 09:37, 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:
