Listing All Users and Their Last Logon

Dim NameSpace As IADsContainer
Dim User   As IADsUser
Dim DomainContainer As IADsContainer
Dim Domain   As IADsDomain
'Bind to the known NameSpace.
Set NameSpace = GetObject("NTDS://")
'Enumerate the all domains first
For Each Domain In NameSpace
Set DomainContainer = Domain
DomainContainer.Filter = "User"
'Enumerate the all User in the Domain
For Each User In DomainContainer
 Debug.Print User.Name
 Debug.Print User.LastLogin
 Next User
Next Domain