sub WlanSetProfile {
    croak "Wlan functions are not available" unless $wlan_available;
    my ($handle, $guuid, $xmlref) = @_;
    my $reason = Zero;

    $API{ WlanSetProfile }->Call($handle, $guuid, 0, $$xmlref, 0, 1, 0, $reason) == 0
      or die "$^E";
};

##</code><code>##

sub WlanDeleteProfile  {
    croak "Wlan functions are not available" unless $wlan_available;
    my ($handle, $guuid, $profilename) = @_;
    $API{ WlanDeleteProfile }->Call($handle, $guuid, $profilename, 0) == 0
      or die "$^E";
};