Re^2: How can I get current IP,DNS,MAC,GW under XP?

First of all,thank you, above all enthusiastic response. But I think I do not have a clear description of the question. I do not need have a list of IP,DNS,etc on all NICs. In fact, I would like to know which NIC is working,then get the IP,DNS,MAC,etc on that NIC.

For example, c:>ipconfig/all

Windows IP Configuration



        Host Name . . . . . . . . . . . . : perl

        Primary Dns Suffix  . . . . . . . : 

        Node Type . . . . . . . . . . . . : Unknown

        IP Routing Enabled. . . . . . . . : No

        WINS Proxy Enabled. . . . . . . . : No



Ethernet adapter VMware Network Adapter VMnet8:



        Connection-specific DNS Suffix  . : 

        Description . . . . . . . . . . . : VMware Virtual Ethernet Ad
+apter for VMnet8

        Physical Address. . . . . . . . . : 00-50-56-C0-11-08

        Dhcp Enabled. . . . . . . . . . . : No

        IP Address. . . . . . . . . . . . : 192.168.227.1

        Subnet Mask . . . . . . . . . . . : 255.255.255.0

        Default Gateway . . . . . . . . . : 



Ethernet adapter VMware Network Adapter VMnet1:



        Connection-specific DNS Suffix  . : 

        Description . . . . . . . . . . . : VMware Virtual Ethernet Ad
+apter for VMnet1

        Physical Address. . . . . . . . . : 00-50-56-C0-11-01

        Dhcp Enabled. . . . . . . . . . . : No

        IP Address. . . . . . . . . . . . : 192.168.138.1

        Subnet Mask . . . . . . . . . . . : 255.255.255.0

        Default Gateway . . . . . . . . . : 



Ethernet adapter 无线网络连接:



        Connection-specific DNS Suffix  . : 

        Description . . . . . . . . . . . : Broadcom 802.11b/g WLAN

        Physical Address. . . . . . . . . : 00-1A-73-2A-E6-BC

        Dhcp Enabled. . . . . . . . . . . : Yes

        Autoconfiguration Enabled . . . . : Yes

        IP Address. . . . . . . . . . . . : 192.168.0.103

        Subnet Mask . . . . . . . . . . . : 255.255.255.0

        Default Gateway . . . . . . . . . : 192.168.0.1

        DHCP Server . . . . . . . . . . . : 192.168.0.1

        DNS Servers . . . . . . . . . . . : 192.168.0.1

        Lease Obtained. . . . . . . . . . : 2008年11月20日 23:35:02

        Lease Expires . . . . . . . . . . : 2008年11月27日 23:35:02



Ethernet adapter 本地连接:



        Media State . . . . . . . . . . . : Media disconnected

        Description . . . . . . . . . . . : Broadcom NetLink (TM) Giga
+bit Ethernet

        Physical Address. . . . . . . . . : 00-17-A4-DD-F3-26
[download]

Now, I'm using a wireless network, so I hope the perl script will Automatically get the following:

        Physical Address. . . . . . . . . : 00-1A-73-2A-E6-BC
        
        IP Address. . . . . . . . . . . . : 192.168.0.103

        Default Gateway . . . . . . . . . : 192.168.0.1

        DHCP Server . . . . . . . . . . . : 192.168.0.1

        DNS Servers . . . . . . . . . . . : 192.168.0.1
[download]

Poor English skills, understanding.

Thanks.

Comment on Re^2: How can I get current IP,DNS,MAC,GW under XP? Select or Download Code

Replies are listed 'Best First'.
Re^3: How can I get current IP,DNS,MAC,GW under XP? by bingos (Vicar) on Nov 21, 2008 at 12:14 UTC
Oh well, I'm feeling generous: use strict; use warnings; use Win32::OLE qw(in); $\|++; my $machine = '.'; # Replace this to query a remote machine '.' picks +the localhost my $object = Win32::OLE->GetObject('winmgmts:{impersonationLevel=imper +sonate}!//' . $machine ); foreach my $nic ( in $object->InstancesOf('Win32_NetworkAdapterConfigu +ration') ) { next unless $nic->{IPEnabled}; next if $nic->{Caption} =~ /VMware Virtual/; # Mac Address print $nic->{MACAddress}, "\n"; # IP Address(es), there can be more than one print join( ' ', @{ $nic->{IPAddress} } ), "\n"; # Default gateway print join(' ', @{ $nic->{DefaultIPGateway} }), "\n" if $nic->{Defa +ultIPGateway}; # DHCP Server ( if applicable ) print $nic->{DHCPServer}, "\n" if $nic->{DHCPEnabled}; # DNS Servers ( if applicable ) print join(' ', @{ $nic->{DNSServerSearchOrder} } ), "\n" if $nic-> +{DNSServerSearchOrder}; } exit 0; [download] Produces something like: `00:11:2F:41:E5:CE 10.0.127.254 10.4.0.3 10.1.0.7 10.1.0.8 10.1.0.7` [download]	[reply] [d/l] [select]
Re^4: How can I get current IP,DNS,MAC,GW under XP? by perllee (Novice) on Nov 23, 2008 at 09:37 UTC
Thank you for your advice.	[reply]