Max Maischein > Win32-Wlan-0.06 > Win32::Wlan::API

Download:
Win32-Wlan-0.06.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.06   Source  

WlanCurrentConnection( $handle, $interface )

Returns a hashref containing the following keys

NAME ^

Win32::Wlan::API - Access to the Win32 WLAN API

SYNOPSIS ^

    use Win32::Wlan::API qw(WlanOpenHandle WlanEnumInterfaces WlanQueryCurrentConnection);
    if ($Win32::Wlan::available) {
        my $handle = WlanOpenHandle();
        my @interfaces = WlanEnumInterfaces($handle);
        my $ih = $interfaces[0]->{guuid};
        # Network adapters are identified by guuid
        print $interfaces[0]->{name};
        my $info = WlanQueryCurrentConnection($handle,$ih);
        print "Connected to $info{ profile_name }\n";        

    } else {
        print "No Wlan detected (or switched off)\n";
    };

SEE ALSO ^

Windows Native Wifi Reference

http://msdn.microsoft.com/en-us/library/ms706274%28v=VS.85%29.aspx

REPOSITORY ^

The public repository of this module is http://github.com/Corion/Win32-Wlan.

SUPPORT ^

The public support forum of this module is http://perlmonks.org/.

BUG TRACKER ^

Please report bugs in this module via the RT CPAN bug queue at https://rt.cpan.org/Public/Dist/Display.html?Name=Win32-Wlan or via mail to win32-wlan-Bugs@rt.cpan.org.

AUTHOR ^

Max Maischein corion@cpan.org

COPYRIGHT (c) ^

Copyright 2011-2011 by Max Maischein corion@cpan.org.

LICENSE ^

This module is released under the same terms as Perl itself.

syntax highlighting: