"Simon G" <Sim***@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

"Richard Mueller [MVP]" wrote:

>
> "Simon G" <Sim***@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
> --
>
>
>

"Simon G" <Sim***@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" <Sim***@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
>> --
>>
>>
>>

"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" <Sim***@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" <Sim***@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
> >> --
> >>
> >>
> >>
>
>
>