Edu, eu achei esse script abaixo. Nesta url mas não fiz o teste.
http://social.technet.microsoft.com/forums/pt-br/scriptadminpt/thread/BAE71ADC-3221-4D19-A976-653C62541508
Sub GetADInfo()
On Error Resume Next
Dim SQLquery, rs, Conn, I, User
SQLquery = "SELECT cn FROM 'LDAP://AD_Server/" & _
"DC=DOMINIO,DC=COM,DC=BR ' WHERE " & _
"objectClass='User' ORDER BY cn ASC"
Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "ADSDSOObject"
Conn.Open "ADs Provider"
I = 1
Set rs = Conn.Execute(SQLquery)
Do While Not rs.EOF Or rs.BOF
ReturnValue = rs.Fields(0)
If IsArray(ReturnValue) Then
For I = LBound(ReturnValue) To UBound(ReturnValue)
If ReturnValue(I) Then
Cells(I,
1) = ReturnValue(I)
End If
Next
End If
rs.MoveNext
Cells(I, 1) = ReturnValue
I = I + 1
Loop
I = 1
Do While Cells(I, 1)
Set User = GetObject("LDAP://AD_Server/"
& _
"CN=" & Cells(I, 1) & ",OU=Users,OU=EMPRESA," & _
"DC=DOMINIO,DC=COM,DC=BR")
Cells(I, 2) = User.LastLogin
I = I + 1
Loop
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Selection.Font.Bold = True
Cells(1, 1) = "User"
Cells(1, 2) = "LastLogin"
End Sub
Vinícius Kleber
