사용자의 현재 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"; }