ユーザーの現在の 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";
}