use Win32::OLE qw(in);

$WSQLQuery = "Select * From Win32_NetworkAdapterConfiguration";
$BOOL = { 0 => "FALSE", 1 => "TRUE", '' => "UNDEFINED" };

if ( @ARGV ){
    $NodeName = @ARGV[0];
    $NodeName =~ s/\\//g;
    print "Network Interfaces For Workstation $NodeName\n\n";
    $NodeName = "//".$NodeName;
} else {
    $NodeName = "";
    print "Network Interfaces For Local Workstation\n\n";
}

$WMI = Win32::OLE->GetObject("winmgmts:".$NodeName);
$Enum = $WMI->ExecQuery($WSQLQuery);

foreach $Interface ( in $Enum ){
        if ($Interface eq undef){
        "No Network Found";
    } else {
        print "Caption = ".$Interface->Caption."\n";
        print "Description = ".$Interface->Description."\n";
        print "Service Name = ".$Interface->ServiceName."\n";
        print "Setting ID = ".$Interface->SettingID."\n";
        print "Index = ".$Interface->Index."\n";
        print "Database Path = ".$Interface->DatabasePath."\n";
        print "MTU = ".$Interface->MTU."\n\n";
        print "IP Address =
".join(".",@{$Interface->IPAddress})."\n";
        print "IP Subnet = ".join(".",@{$Interface->IPSubnet})."\n";
        print "Default IP Gateway =
".join(".",@{$Interface->DefaultIPGateway})."\n";
        print "MAC Address = ".$Interface->MACAddress."\n\n";
        print "ARP Always Source Route =
".$BOOL->{$Interface->ArpAlwaysSourceRoute}."\n";
        print "ARP Use Ether SNAP =
".$BOOL->{$Interface->ArpUseEtherSNAP}."\n\n";
        print "WINS Host Lookup File =
".$Interface->WINSHostLookupFile."\n";
        print "WINS Primary Server =
".$Interface->WINSPrimaryServer."\n";
        print "WINS Scope ID = ".$Interface->WINSScopeID."\n";
        print "WINS Secondary Server =
".$Interface->WINSSecondaryServer."\n";
        print "WINS Enable LM Hosts Lookup =
".$BOOL->{$Interface->WINSEnableLMHostsLookup}."\n\n";
        print "Full DNS Registration Enabled =
".$BOOL->{$Interface->FullDNSRegistrationEnabled}."\n";
        print "DNS Domain = ".$Interface->DNSDomain."\n";
        print "DNS Host Name = ".$Interface->DNSHostName."\n";
        print "DNS Enabled For WINS Resolution =
".$BOOL->{$Interface->DNSEnabledForWINSResolution}."\n";
        print "DNS Server Search Order = ".join(",
",@{$Interface->DNSServerSearchOrder})."\n";
        print "Domain DNS Registration Enabled =
".$BOOL->{$Interface->DomainDNSRegistrationEnabled}."\n";
        print "DNS Domain Suffix Search Order = ".join(",
",@{$Interface->DNSDomainSuffixSearchOrder})."\n\n";
        print "DHCP Enabled =
".$BOOL->{$Interface->DHCPEnabled}."\n";
        print "DHCP Server = ".$Interface->DHCPServer."\n";
        print "DHCP Lease Expires =
".$Interface->DHCPLeaseExpires."\n";
        print "DHCP Lease Obtained =
".$Interface->DHCPLeaseObtained."\n\n";
        print "TCP/IP Netbios Options =
".$Interface->TcpipNetbiosOptions."\n";
        print "TCP Maximum Connect Retransmissions =
".$Interface->TcpMaxConnectRetransmissions."\n";
        print "TCP Maximum Data Retransmissions =
".$Interface->TcpMaxDataRetransmissions."\n";
        print "TCP Number of Connections =
".$Interface->TcpNumConnections."\n";
        print "TCP Window Size = ".$Interface->TcpWindowSize."\n";
        print "PMTUBH Detect Enabled =
".$BOOL->{$Interface->PMTUBHDetectEnabled}."\n";
        print "PMTU Discovery Enabled =
".$BOOL->{$Interface->PMTUDiscoveryEnabled}."\n";
        print "TCP Use RFC1122 Urgent Pointer =
".$BOOL->{$Interface->TcpUseRFC1122UrgentPointer}."\n";
        print "Forward Buffer Memory =
".$Interface->ForwardBufferMemory."\n\n";
        print "IP Enabled = ".$BOOL->{$Interface->IPEnabled}."\n";
        print "Gateway Cost Metric = ".join(",
",@{$Interface->GatewayCostMetric})."\n";
        print "Dead Gateway Detect Enabled =
".$BOOL->{$Interface->DeadGWDetectEnabled}."\n";
        print "IP Filter Security Enabled =
".$BOOL->{$Interface->IPFilterSecurityEnabled}."\n";
        print "IP Port Security Enabled =
".$BOOL->{$Interface->IPPortSecurityEnabled}."\n";
        print "IP Sec Permit IP Protocols = ".join(",
",@{$Interface->IPSecPermitIPProtocols})."\n";
        print "IP Sec Permit TCP Ports = ".join(",
",@{$Interface->IPSecPermitTCPPorts})."\n";
        print "IP Sec Permit UDP Ports = ".join(",
",@{$Interface->IPSecPermitUDPPorts})."\n";
        print "IP Use Zero Broadcast =
".$BOOL->{$Interface->IPUseZeroBroadcast}."\n";
        print "IP Connection Metric =
".$Interface->IPConnectionMetric."\n";
        print "Number of Forwarded Packets =
".$Interface->NumForwardPackets."\n";
        print "Default TOS = ".$Interface->DefaultTOS."\n";
        print "Default TTL = ".$Interface->DefaultTTL."\n";
        print "Keep Alive Interval =
".$Interface->KeepAliveInterval."\n";
        print "Keep Alive Time = ".$Interface->KeepAliveTime."\n";
        print "IGMP Level = ".$Interface->IGMPLevel."\n\n";
        print "IPX Enabled = ".$BOOL->{$Interface->IPXEnabled}."\n";
        print "IPX Network Number =
".join(".",@{$Interface->IPXNetworkNumber})."\n";
        print "IPX Address = ".$Interface->IPXAddress."\n";
        print "IPX Virtual Net Number =
".$Interface->IPXVirtualNetNumber."\n";
        print "IPX Frame Type = ".$Interface->IPXFrameType."\n";
        print "IPX Media Type = ".$Interface->IPXMediaType."\n\n";
    }
}
[download]

HTH
--
idnopheq
Apply yourself to new problems without preparation, develop confidence in your ability to to meet situations as they arrise.

~ Shunryu Suzuki