사용자가 Active Directory에서 마지막으로 로그온하는 방법

Question

사용자 정보를 얻기 위해 활성 디렉토리로 작업하려고합니다. 대부분의 경우 작동합니다. 문제는 사용자가 마지막으로 로그온 한 날짜를 얻지 못하는 것입니다. 누구든지 어떤 제안이 있습니까? 내 코드는 다음과 같습니다 :

Public Shared Function GetUsersByUsername(ByVal Username As String) As ADUser 
    Dim myUser As New ADUser 
    Dim oroot As DirectoryEntry = New DirectoryEntry("GC://ldap.myCompany.com") 
    Dim osearcher As DirectorySearcher = New DirectorySearcher(oroot) 
    Dim result As SearchResult 

    osearcher.Filter = String.Format("(&(SAMAccountName={0}))", Username) 
    osearcher.PropertiesToLoad.Add("cn") 
    osearcher.PropertiesToLoad.Add("SAMAccountName") 'Users login name 
    osearcher.PropertiesToLoad.Add("givenName") 'Users first name 
    osearcher.PropertiesToLoad.Add("sn") 'Users last name 
    osearcher.PropertiesToLoad.Add("mail") 'Email address  
    osearcher.PropertiesToLoad.Add("accountExpires") 'expiration date 

    result = osearcher.FindOne 
    Try 
     Dim userPath As String() = result.Path.ToString.Split(New Char() {","c}) 
     Dim parsedString As String 
     Dim User As DirectoryEntry 
     Dim expirationDate As String 

     User = result.GetDirectoryEntry() 

     myUser.UserID = result.Properties("cn").Item(0) 
     myUser.EmailAddress = result.Properties("mail").Item(0) 
     myUser.FirstName = result.Properties("givenName").Item(0) 
     myUser.LastName = result.Properties("sn").Item(0)   

     expirationDate = result.Properties("accountExpires").Item(0) 

     If (isAccountLocked(User) = True) Then 
      myUser.Status = ADUser.AccountStatus.Locked 
     ElseIf (isAccountEnabled(User) = False) Then 
      myUser.Status = ADUser.AccountStatus.Disabled 
     ElseIf (isAccountExpired(expirationDate) = True) Then 
      myUser.Status = ADUser.AccountStatus.Expired 
     Else 
      myUser.Status = ADUser.AccountStatus.Active 
     End If 

     parsedString = userPath((userPath.Length - 3)) 
     myUser.Domain = parsedString.Substring(3, parsedString.Length - 3) 

    Catch ex As Exception 
     Return Nothing 
    End Try 

    Return myUser 
End Function 

Answer 1

'lastLogon'LDAP 속성을 사용해 보셨습니까? 귀하의 코드는 좋아 보이는데, 정보가 어디서 AD에 저장되어 있는지 확실하지 않습니까? 나를 위해

Answer 2

작품 :

1. 로드 재산 :

   osearcher.PropertiesToLoad.Add("lastLogon") 
   

2. 액세스를 : 당신이 다시 간격 값을 얻을 것이다

   dim myDateInterval = result.Properties("lastLogon").Item(0) 
   

참고. 그것은 64 비트, 서명되지 않은 것 같습니다. .NET에는 몇 가지 캐스팅 메소드가 있지만 서명 된 64 비트 만 가져옵니다. 그것이 문제가되기까지 몇 년이 될지 미리 확인하지 않았습니까!

또한 DirectoryServices에서 새로운 UserPrincipal을 사용하는 경우 nullhostable 날짜를 반환하는 lastlogon이 있습니다.