lastLogonTimestamp
in [VB.NET]
|
Prev: free tutorials
Next: print a Datagrid
From: Kenneth H. Young on 17 Jul 2006 16:30 I am trying to write a VB app in VS.net to find the lastLogonTimestamp and have found some example but the answer returned is always the same '12/31/1600 7:00:00 PM' for any user account. Thanks! Below is a snippet of the code. Dim Data1 As String Dim Data3 As ActiveDs.LargeIntergerClass Dim Data4 as Date Din lngHigh, lngLow, timeAdj As Int64 Dim x As Integer = 0 ' Bind to the Default Active Directory with the RootDSE object. rootDSE = GetObject("LDAP://RootDSE") sObjectDN = "LDAP://" & rootDSE.Get("defaultNamingContext") Me.txtStatus.Text = "Connecting to: " & sObjectDN Dim EntryPath As String = ("" & sObjectDN & "") Entry = New DirectoryEntry(EntryPath) Entry.RefreshCache() Dim Searcher As New DirectorySearcher(Entry) Searcher.PageSize = 5000 Dim strContact As String = "(&(objectClass=user)(mail=sue*))" Searcher.Filter = strContact Searcher.PropertiesToLoad.Add("cn") Searcher.PropertiesToLoad.Add("lastLogon") Searcher.PropertiesToLoad.Add("givenName") Searcher.PropertiesToLoad.Add("sn") Dim Results As System.DirectoryServices.SearchResult On Error Resume Next For Each Results In Searcher.FindAll() Data1 = Nothing Data3 = Nothing If Not Results.GetDirectoryEntry().Properties("cn").Value = Nothing Then Data1 = Results.GetDirectoryEntry().Properties("cn").Value.ToString Else : GoTo Skip End If Data3 = Results.GetDirectoryEntry().Properties("lastLogonTimestamp").Value lngHigh = Data3.HighPart lngLow = Data3.LowPart timeAdj = lngHigh * (2 << 32) + lngLow timeAdj = timeAdj / (60 * 10000000) timeAdj = timeAdj / 1440 Data4 = DateTime.FromFileTime(timeAdj).ToShortDateString & " " & DateTime.FromFileTime(timeAdj).ToShortTimeString Data4 = Data4 + #1/1/1601# Me.txtResults.Text = Me.txtResults.Text & Data1 & ", " & Data4 & vbCrLf Skip: Next
From: Dirk_Drexlin_ on 18 Jul 2006 08:40 Kenneth H. Young schrieb: > I am trying to write a VB app in VS.net to find the lastLogonTimestamp and > have found some example but the answer returned is always the same > '12/31/1600 7:00:00 PM' for any user account. THis means, that the value of lastLogonTimestamp is empty; probably because the user never loged on. Greetings Dirk
From: Kenneth H. Young on 18 Jul 2006 09:17 In later testing that's what it seemed like a Null or Nothing returm. But I am testing in a single Active Directory server environment against known active accounts. "Dirk_Drexlin_" <nospamdrexlin(a)nospamhgs-calw.de> wrote in message news:4i432eF1nvocU1(a)individual.net... > Kenneth H. Young schrieb: >> I am trying to write a VB app in VS.net to find the lastLogonTimestamp >> and >> have found some example but the answer returned is always the same >> '12/31/1600 7:00:00 PM' for any user account. > > THis means, that the value of lastLogonTimestamp is empty; probably > because the user never loged on. > > Greetings > > Dirk
From: Kenneth H. Young on 18 Jul 2006 14:14 OK, I have tested over and over again. I have set the code up to pull back all users and then tweaked it to pull from two different servers and the results for every user is always the same for lastLogonTimeStamp '12/31/1600 7:00:00 PM'. Any help with this will be greatly appreciated. Below is all my code, please excuse the mess. Imports System.DirectoryServices Imports System.Windows.Forms Imports ActiveDs Imports ADODB Public Class Form1 Dim Entry As DirectoryEntry Dim Searcher As DirectorySearcher Dim rootDSE As IADs Dim sObjectDN As String Dim timeAdj As Int64 Dim lngHigh As Int64 Dim lngLow As Int64 Private Sub btLastLogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLastLogon.Click Dim tDate As DateTime Dim valLL As Date tDate = Date.Now().AddDays(-30).ToShortDateString Me.TextBox1.Text = tDate Dim Data1, Data2 As String Dim Data3 As ActiveDs.LargeInteger Dim Data4, Data5 As Date Dim x As Integer = 0 Dim llastLogonAdjust As Long = 127877417297554938L ' Bind to the Default Active Directory with the RootDSE object. rootDSE = GetObject("LDAP://RootDSE") sObjectDN = "LDAP://" & rootDSE.Get("defaultNamingContext") Me.txtStatus.Text = "Connecting to: " & sObjectDN Dim EntryPath As String = ("" & sObjectDN & "") Entry = New DirectoryEntry(EntryPath) Entry.UsePropertyCache = False Dim Searcher As New DirectorySearcher(Entry) Searcher.PageSize = 5000 Dim strContact As String = "(&(objectClass=user)(cn=*))" Searcher.Filter = strContact Searcher.PropertiesToLoad.Add("cn") Searcher.PropertiesToLoad.Add("lastLogon") Searcher.PropertiesToLoad.Add("givenName") Searcher.PropertiesToLoad.Add("sn") Searcher.PropertiesToLoad.Add("lastLogonTimestamp") Dim Results As System.DirectoryServices.SearchResult On Error Resume Next For Each Results In Searcher.FindAll() If Not Results.GetDirectoryEntry().Properties("cn").Value = Nothing Then Data1 = Results.GetDirectoryEntry().Properties("cn").Value.ToString Else : GoTo Skip End If Data3 = Results.GetDirectoryEntry().Properties("lastLogonTimestamp").Value lngHigh = Data3.HighPart lngLow = Data3.LowPart timeAdj = lngHigh * (2 << 32) + lngLow timeAdj = timeAdj / (60 * 10000000) timeAdj = timeAdj / 1440 Data4 = DateTime.FromFileTime(timeAdj).ToShortDateString & " " & DateTime.FromFileTime(timeAdj).ToShortTimeString Data4 = Data4 + #1/1/1601# Me.txtResults.Text = Me.txtResults.Text & Data1 & ", " & Data4 & vbCrLf x += 1 Skip: Next Entry.Close() 'Me.txtStatus.Text = "Found " & x & " entries." End Sub End Class
From: Dirk_Drexlin_ on 19 Jul 2006 02:57
Are you sure, the problem is your program and not the Active Directory? What value do you see when you check the properties of a user in the AD? Greetings Dirk |