RE: Last Logon of ALL users in the domain

[Leon]

This totally 100 percent worked.
 
Thank you so much!!!!

"Tillman, James" <[EMAIL PROTECTED]> wrote:
This works on my own domain from a Win2k or NT box:
 
use Win32::OLE;
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
my $domain = Win32::OLE->GetObject("WinNT://IRM-NT");
foreach my $object (in $domain) {
 if ($object->{Class} eq 'User') {
  my $last_login;
  if ($object->{LastLogin}) {
   $last_login = $object->{LastLogin}->Date(DATE_LONGDATE)
  }
  else {
   $last_login = "Unknown";
  }
  print $object->{Name} . "=" . $last_login . "\n"
 }
}
 
Just a thought...
 
jpt
-----Original Message-----
From: Leon [mailto:[EMAIL PROTECTED]
Sent: Thursday, June 12, 2003 12:35 PM
To: Robert-Jan Mora
Cc: perl; win32; Yahoo Beginner Perl
Subject: Re: Last Logon of ALL users in the domain


Hi Robert,
 
Unfortunately after examining this script it works via passing a username to it.  I 
can do this with adminmisc.  I need to check ALL users in the domain.
 
Here is a snippet of the code and what it appears to do:
 
$username = $ARGV[0];
Grab the username from ARGV 
 
I appreciate the attempt though,
 
Leon


Robert-Jan Mora <[EMAIL PROTECTED]> wrote:
Hello Leon,

Check the site www.roth.net and look for examples. He has a script which is called 
lastlogon.pl.

Leon wrote:
Hi guys (and ladies!),
 
I am trying to write a script to find out the last logon of all users in a domain.  I 
see that with adminmisc I can query a users last logon but this has to be done on 
every domain controller.  That's fine cause I know that I can use netadmin and lanman 
to get a list of all domain controllers in the domain.  My questions is how can I 
query on all users in the domain?


---------------------------------
Do you Yahoo!?
Free online calendar with sync to Outlook(TM). 

---------------------------------
Do you Yahoo!?
Free online calendar with sync to Outlook(TM).

---------------------------------
Do you Yahoo!?
Free online calendar with sync to Outlook(TM).