listing users active directory

Bonjour a tous,
je cherche un script qui me permettrait d'obtenir un listing complet de
toutes les propriétés de tous les utilisateurs d'une OU.
j en ai deja un mais je n arrive pas a récupérer les valeurs.
quelqu'un peut il m aider?
merci d'avance


On Error Resume Next

'***********************************************
'* Connect to an object *
'***********************************************
Set objRootDSE = GetObject("LDAP://rootDSE")
If strContainer = "" Then
Set objItem = GetObject("LDAP://" & _
objRootDSE.Get("defaultNamingContext"))
Else
Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer &
","

& _
objRootDSE.Get("defaultNamingContext"))
End If

'Conection à AD : création d'un objet de connexion
Set oConnect = CreateObject("ADODB.Connection")
oConnect.Provider = "ADsDSOObject"
oConnect.Open ' "DC=coin,DC=fr" 'pas nécessaire

'La commande qui sera passée sur la connexion ci-dessus
Set command = CreateObject("ADODB.Command")
Set command.ActiveConnection = oConnect
command.CommandText = "<LDAP://OU=test,DC=coin,DC=fr>;(objectclass=user)"

'***********************************************
'* End connect to an object *
'***********************************************


strname = objItem.Get("name")
WScript.Echo "name: " & strname
strgivenName = objItem.Get("givenName")
WScript.Echo "givenName: " & strgivenName
strinitials = objItem.Get("initials")
WScript.Echo "initials: " & strinitials
strsn = objItem.Get("sn")
WScript.Echo "sn: " & strsn
strdisplayName = objItem.Get("displayName")
WScript.Echo "displayName: " & strdisplayName
strdescription = objItem.Get("description")
WScript.Echo "description: " & strdescription
strphysicalDeliveryOfficeName = objItem.Get("physicalDeliveryOfficeName")
WScript.Echo "physicalDeliveryOfficeName: " &
strphysicalDeliveryOfficeName

strtelephoneNumber = objItem.Get("telephoneNumber")
WScript.Echo "telephoneNumber: " & strtelephoneNumber
strmail = objItem.Get("mail")
WScript.Echo "mail: " & strmail
strwWWHomePage = objItem.Get("wWWHomePage")
WScript.Echo "wWWHomePage: " & strwWWHomePage

WScript.Echo VbCrLf & "** General Properties Page**"
WScript.Echo "** (MultiValued Attributes) **"
strotherTelephone = objItem.GetEx("otherTelephone")
WScript.Echo "otherTelephone:"

personne n'a d'idée a ce sujet?
merci d'avance

"microsoft" <plomkiolki@hotmail.com> a écrit dans le message de
news:OeQwy$mjEHA.3988@tk2msftngp13.phx.gbl...

Bonjour a tous,
je cherche un script qui me permettrait d'obtenir un listing complet de
toutes les propriétés de tous les utilisateurs d'une OU.
j en ai deja un mais je n arrive pas a récupérer les valeurs.
quelqu'un peut il m aider?
merci d'avance


On Error Resume Next

'***********************************************
'* Connect to an object *
'***********************************************
Set objRootDSE = GetObject("LDAP://rootDSE")
If strContainer = "" Then
Set objItem = GetObject("LDAP://" & _
objRootDSE.Get("defaultNamingContext"))
Else
Set objItem = GetObject("LDAP://cn=" & strName & "," & strContainer &
","

& _
objRootDSE.Get("defaultNamingContext"))
End If

'Conection à AD : création d'un objet de connexion
Set oConnect = CreateObject("ADODB.Connection")
oConnect.Provider = "ADsDSOObject"
oConnect.Open ' "DC=coin,DC=fr" 'pas nécessaire

'La commande qui sera passée sur la connexion ci-dessus
Set command = CreateObject("ADODB.Command")
Set command.ActiveConnection = oConnect
command.CommandText = "<LDAP://OU=test,DC=coin,DC=fr>;(objectclass=user)"

'***********************************************
'* End connect to an object *
'***********************************************


strname = objItem.Get("name")
WScript.Echo "name: " & strname
strgivenName = objItem.Get("givenName")
WScript.Echo "givenName: " & strgivenName
strinitials = objItem.Get("initials")
WScript.Echo "initials: " & strinitials
strsn = objItem.Get("sn")
WScript.Echo "sn: " & strsn
strdisplayName = objItem.Get("displayName")
WScript.Echo "displayName: " & strdisplayName
strdescription = objItem.Get("description")
WScript.Echo "description: " & strdescription
strphysicalDeliveryOfficeName = objItem.Get("physicalDeliveryOfficeName")
WScript.Echo "physicalDeliveryOfficeName: " &
strphysicalDeliveryOfficeName

strtelephoneNumber = objItem.Get("telephoneNumber")
WScript.Echo "telephoneNumber: " & strtelephoneNumber
strmail = objItem.Get("mail")
WScript.Echo "mail: " & strmail
strwWWHomePage = objItem.Get("wWWHomePage")
WScript.Echo "wWWHomePage: " & strwWWHomePage

WScript.Echo VbCrLf & "** General Properties Page**"
WScript.Echo "** (MultiValued Attributes) **"
strotherTelephone = objItem.GetEx("otherTelephone")
WScript.Echo "otherTelephone:"