A/D User Query Question

[error_repair]

I need to run an AD report or query to find out how many A/D users were added for a specific period in time i.e.

AD user added during 2006, 2007, 2008 and 2009.

I appreciate you help and I do leave points

[Phil.Howell · Accepted solution]

On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
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 cn,createTimeStamp FROM 'LDAP://dc=whatever,dc=com' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Wscript.Echo "User,Created"
Do Until objRecordSet.EOF
Wscript.Echo objRecordSet.Fields("cn").Value & "," & _
objRecordSet.Fields("createTimeStamp").Value
objRecordSet.MoveNext
Loop