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

"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
--

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
> --
>
>
>

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
>> --
>>
>>
>>

fantastic, works a treat.

thanks again

"Richard Mueller [MVP]" wrote:

> 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
> >> --
> >>
> >>
> >>
>
>
>