Windows Wireless and PCAP library functions.

Select or download this

use Net::Pcap;
my $dev  = Net::Pcap::lookupdev( \$err );
...
         {die "Unable to look up device information for ", $dev, " - "
+, $err; }
     print "Device : $dev, Network Address : $net, NetMask : $mask \n"
+;
   }

Select or download this

C:\Perl\Data>..\bin\perl Pcap-102.pl
\Device\NPF_{A6DECF92-8A65-40B8-BFDC-214D19DA6F37}
...
Device : \Device\NPF_{691970A7-D403-46AD-BC01-1628915ED58A}, Network A
+ddress : 0, NetMask : 4278190080

C:\Perl\Data>

Select or download this

Wireless LAN adapter Wireless Network Connection:

...
   DHCPv6 Client DUID. . . . . . . . : 00-01-00-01-11-D6-E3-9D-00-25-B
+3-2E-25-5A
   DNS Servers . . . . . . . . . . . : 202.148.200.3
   NetBIOS over Tcpip. . . . . . . . : Enabled

Select Code to Download