Restituisce l'attuale AuthenticationMode per User.
non è richiesto alcun privilegio speciale per richiamare questo metodo.
VBScript
user.GetAuthenticationMode()
Perl
user->GetAuthenticationMode();
VBScript
Public Function checkAuthentication_On_User(ByVal theUser As OAdUser)
' Check the user's authentication mode
Const AD_LDAP_AUTHENTICATION = 1
Const AD_CQ_AUTHENTICATION = 2
Dim authentication ' the user authentication mode
authentication = user.GetAuthenticationMode
if authentication = AD_LDAP_AUTHENTICATION then
checkAuthentication_On_User = "LDAP Authenticated"
elseif authentication = AD_CQ_AUTHENTICATION then
checkAuthentication_On_User = "CQ Authenticated"
elseif authentication = 0 then
checkAuthentication_On_User = "CQ Authenticated"
else
checkAuthentication_On_User = "UNKNOWN"
end if
end Function
Perl
sub checkAuthentication_On_User($)
# Check the user's authentication mode
{
my $user = shift;
$authentication = $user->GetAuthenticationMode();
if ($authentication == $CQPerlExt::CQ_LDAP_AUTHENTICATION) {
return "LDAP Authenticated";
}
if ($authentication == $CQPerlExt::CQ_CQ_AUTHENTICATION) {
return "CQ Authenticated";
}
return "UNKNOWN";
}