Bonjour,

J'utilise le script ci-dessous (Récupère les infos dans l'AD) que j'ai récupéré et souhaiterais ajouter à ce script l'état du compte (actif ou inactif).
J'ai essayé de le bidouiller pour ajouter à mon fichier de sortie cette information là, mais je n'y arrive pas.
Merci de vos réponses.

strContainer = "CN=Users,DC=dm,DC=toto"
strName = "Guest"
strListMemberOf = ""
On error resume next
Const ADS_SCOPE_SUBTREE = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")

strDomain = "LDAP://DC=dm,DC=toto"
strUser="Hostname;Description;AdsPath;Membre de"& vbCrLf

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
"SELECT name, AdsPath from '"& strDomain &"' " _
&"WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strChemin = objRecordSet.Fields("AdsPath").Value
Set objItem = GetObject(strChemin)

strdescription = objItem.Get("description")
If Not IsEmpty(strdescription) Then Description = strdescription Else Description = "" End If
strmemberOf = objItem.GetEx("memberOf")
For Each Item in strmemberOf
strListMemberOf = strListMemberOf & Item & ";"
Next
strUser = strUser & objRecordSet.Fields("Name").Value & ";" _
& Description & ";" _
& objRecordSet.Fields("AdsPath").Value & ";" _
& "" & strListMemberOf & "" & ";" _
& VbCrLf
objRecordSet.MoveNext
strListMemberOf = ""
Loop

'Création du fichier de log dans le répertoire désigné par l'utilisateur avec le nom par défaut
Set objFile = objFSO.CreateTextFile("D:\_ListeUserADDM.csv")
objFile.WriteLine StrUser
objFile.Close

MsgBox ("Fini, le fichier se trouve : D:\_ListeUserADDM.csv")