boat73 has asked for the wisdom of the Perl Monks concerning the following question:

I have looked at win32::AdminMisc and win32::NetAdmin but they do not supply the user ID create date. Any direction you can give me on this would be greatly appreciated.
  • Comment on need create date of win32 domain user id

Replies are listed 'Best First'.
Re: need create date of win32 domain user id
by idsfa (Vicar) on Feb 05, 2004 at 16:51 UTC

    While this code doesn't use the Win32 specific API, that could be considered an advantage:

    Updated: In case people were not aware, a Windows Domain Controller also acts as an LDAP server.

     use Net::LDAP;

 $ldap = Net::LDAP->new( 'domain.controller' );
 
 # bind to a directory with dn and password
 # ActiveDirectory does not allow anonymous binds
 $mesg = $ldap->bind( 'cn=a_valid_user,o=mydomain',
                       password => 'secret'
                    );
 $mesg = $ldap->search( # perform a search
                        base   => "o=mydomain",
                        filter => "(sAMAccountName=user_name)",
                        attrs  => [ "whenCreated" ]
                      );
 
 Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );

    [download]
    If anyone needs me I'll be in the Angry Dome.
[reply]
[d/l]
Re: need create date of win32 domain user id
by rchiav (Deacon) on Feb 05, 2004 at 17:28 UTC
    Have you found something from Microsoft that actually says this information is available? I've never seen anything where they make that info accessable. here's as complete of a list of available properties that I was able to find, and account creation date isn't listed. I've looked at several other tools, including built-in NT/2k/XP administration tools and none of them show the creation date. If you need this info, you might have to take it up with Microsoft.
[reply]
      I can get it using adseedit.msc on the pdc, it is called createtimestamp. But thus far I have been unable to query via scripting in perl or vb.
[reply]
Re: need create date of win32 domain user id
by boat73 (Scribe) on Feb 05, 2004 at 19:07 UTC
    Great, the code above works once I figured out the entries. (THANKS idsfa). The only issue now seems to be that it only returns 1000 entries and then stops. I have over 14000 users to quuery. Any idea why?
[reply]
      Yup. 1000 is the default maximum number of results to return. Use dtdsutil to set maxpagesize like this: set maxpagesize to 20000 Don't forget to 'commit changes'

      HTH, --traveler

[reply]
[d/l]

Back to Seekers of Perl Wisdom