windows XP 获取网卡MAC和IP地址

linuxx

• 　　程序源码
  

　　use strict;
　　open my $fh,"ipconfig /all|" or die "can't find cmd ipconfig /all:$!";
　　my (%mac_ip_hash, $ip_address, $mac_address);
　　while(defined(my $line1=<$fh>)){
　　if ($line1 =~ /^Windows/){
　　print "Windows IP Configure:\n"
　　};
　　if ($line1 =~ /([0-9A-F][0-9A-F]-[0-9A-F][0-9A-F]-[0-9A-F][0-9A-F]-[0-9A-F][0-9A-F]-[0-9A-F][0-9A-F]-[0-9A-F][0-9A-F])+?/)
　　{
　　#print $1."\n";
　　$mac_address = $1;
　　};
　　if ($line1 =~ /(IP.*)(\s+)((25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9]))/){
　　#print $3."\n";
　　$ip_address = $3;
　　$mac_ip_hash{$mac_address}=$ip_address;
　　};
　　}
　　while(my ($key, $value) = each %mac_ip_hash){
　　print "$key => $value\n";
　　}
　　2.程序输出：
　　C:\>perl ip_mac.pl
　　Windows IP Configure:
　　00-23-8B-75-ED-5F => 192.168.0.37