Voici un script dans lequel j'ai l'erreur suivante "Cette objet ne gère pas cette propriété ou cette méthode". Elle apparait pour la ligne lastLogon = objRecordSet.Fields("lastLogon").Value et pwd = objRecordSet.Fields("pwdLastSet").value. (cn fonctionne)
Quelqu'un à t'il une idée ?
Merci d'avance
- Code: Tout sélectionner
rem On Error Resume Next
Const ADS_SCOPE_SUBTREE = 10
Dim objShell, i, j, k, num, enErreur, root
Dim objGroup, objUser, objExplorer, fileOutput, objFso, objMember, count
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
Set objShell = CreateObject("WScript.Shell")
root = "OU=Utilisateurs,dc=domaine,dc=fr"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT cn,lastLogon,pwdLastSet FROM 'LDAP://"& root &"' WHERE objectClass='user'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
lastLogon = objRecordSet.Fields("lastLogon").Value
sonCn = objRecordSet.Fields("cn").Value
pwd = objRecordSet.Fields("pwdLastSet").value
k = k+1
wscript.echo sonCn & ";" & lastLogon & ";" & pwd
objRecordSet.MoveNext
Loop
wscript.echo "Total : " & k
