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";
};