Takes a bit of work to construct the date in the correct format, but below
should work:
============
dtmToday = Date()
dtmYesterday = DateAdd("d", dtmToday, -1)

strYear = CStr(Year(dtmYesterday))
strMonth = Right("0" & CStr(Month(dtmYesterday)), 2)
strDay = Right("0" & CStr(Day(dtmYesterday)), 2)
strYesterday = strYear & strMonth & strDay & "000000.Z"

objCommand.CommandText = _
"SELECT ADsPath FROM 'LDAP://ou=new starters,DC=domain,DC=com' " _
& " WHERE objectCategory='person' " _
& "AND objectClass='user' " _
& "AND whenCreated>='" & strYesterday & "'"
================
In my previous post, I believe I missed the second "AND" in the "WHERE"
clause above.

--
Richard Mueller
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net
--

"Simon G" <SimonG@discussions.microsoft.com> wrote in message
news:7B41E6CB-A9DD-4315-9AD0-94D0BABC87B7@microsoft.com...
> thanks as always Richard.
>
> Is there anyway that the date can be dynamic, so the script uses some kind
> of getdate function, as opposed to me having to amend the date each time.
>
> Failing that, is it possible to have a simple input box appear and the
> date
> is manually entered and then use the varaible in the whencreated >= part
> rather than the text?
>
> "Richard Mueller [MVP]" wrote:
>
>>
>> "Simon G" <SimonG@discussions.microsoft.com> wrote in message
>> news:18349334-27A4-4F68-86CF-3393C81E8568@microsoft.com...
>> > Hello all.
>> >
>> > I have an ou in which all new users are created. I currently have a
>> > script
>> > which will list all the members of the ou and some of their attributes.
>> >
>> > What i want to do is to be able to list this, but only for users who
>> > have
>> > been created today.
>> >
>> > Here is the script i am currently using - how can i include the "where
>> > user
>> > was created today" statement?
>> >
>> > 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
>> > Set objFS = CreateObject("Scripting.FileSystemObject")
>> > Set objNewFile = objFS.CreateTextFile("newstarters.csv")
>> >
>> > objCommand.Properties("Page Size") = 1000
>> > objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
>> >
>> > objCommand.CommandText = _
>> > "SELECT ADsPath FROM 'LDAP://ou=new starters,,DC=domain,DC=com'
>> > WHERE "
>> > _
>> > & "objectCategory='user'"
>> > Set objRecordSet = objCommand.Execute
>> >
>> > objRecordSet.MoveFirst
>> > objnewfile.writeline "samaccountname" & "," & "givenname" & "," & "sn"
>> > &
>> > ","
>> > & "description"
>> > Do Until objRecordSet.EOF
>> > strPath = objRecordSet.Fields("ADsPath").Value
>> > Set objuser = GetObject(strPath)
>> >
>> > objNewFile.WriteLine objuser.samaccountname & "," & objuser.givenname &
>> > ","
>> > & objuser.sn & "," & objuser.description
>> > objRecordSet.MoveNext
>> > Loop
>>
>> If today is 20071002000000 (yyyymmddhhnnss) then you can use:
>>
>> "SELECT ADsPath FROM 'LDAP://ou=new starters,DC=domain,DC=com' " _
>> & " WHERE objectCategory='person' " _
>> & "AND objectClass='user' " _
>> & "whenCreated>='20071001000000.0Z'"
>>
>> I use objectCategory=person and objectClass=user to omit contact objects
>> and
>> computers. The ".0Z" means UTC, so you may need to adjust for your time
>> zone. For an offset (differential) of +5 hours, it would be:
>>
>> "whenCreated>='20071001000000.0+0500'"
>>
>> The formula is:
>>
>> GMT=Local+differential
>>
>> Where GMT is the old acronym for UTC (Coordinated Universal Time in
>> French)
>> and Local is the local time (in your time zone). Ordinarily these few
>> hours
>> don't matter, but if you are searching for objects created since
>> midnight,
>> it can matter.
>>
>> --
>> Richard Mueller
>> Microsoft MVP Scripting and ADSI
>> Hilltop Lab - http://www.rlmueller.net
>> --
>>
>>
>>