Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

recuperer tous les uilisateurs dans toutes les OU

0 views
Skip to first unread message

truc

unread,
Apr 28, 2005, 3:56:01 AM4/28/05
to
Bonjour

J'aimerai recuperer l'attribut lastlogontimestamp pour tous les utilisateurs.
Avec ADO j'arrive à lister tous les users quelque soit l'OU mais l'attribut
n'est pas recuperable avec cette methode.
Avec la methode GETOBJECT, j'arrive à recuperer cet attribut mais que pour
les utilisateur dans l'OU specifié.
Je voudrais pouvoir lister tous les utilisateurs comme avec ADO et dans le
meme temps recuperer l'attribut.

Si quelqu'un a une idée.
merci

========== script avec ADO ====================
Set cnx = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
cnx.Provider = "ADsDSOObject"
cnx.Open "Active Directory Provider"

With cmd
.ActiveConnection = cnx
.CommandText = _
"Select distinguishedName" & _
" FROM 'LDAP://OU=users,DC=dom,DC=com'" & _
" WHERE objectCategory = 'person' AND objectClass = 'user'" & _
" ORDER BY sAMAccountname"
.Properties("Page Size") = 5000
End With

Set result = cmd.Execute
result.MoveFirst

Do While NOT result.EOF

WScript.Echo result.fields("lastLogonTimestamp")

result.MoveNext
loop

result.close
Set result = Nothing
Set cnx = Nothing

====script avec getobject ================
Set oOU = GetObject ("LDAP://OU=Users,DC=dom,DC=com")

for each user in oOU
WScript.Echo user.lastlogontimestamp
next

0 new messages