사용자의 현재 AuthenticationMode를 리턴합니다.
이 메소드를 호출할 때는 특별한 권한이 필요하지 않습니다.
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";
}