#!perlenv -w

use strict;

use Win32::NetAdmin qw(UserGetAttributes GetUsers);

my @users;
my $server = $ARGV[0];

if ( $#ARGV < 0 ) {
    print "usage: ntinfo.pl <server IP address>";
    exit;
}

GetUsers( $server, 0, \@users );

my ( $user, $password, $passwordAge, $privilege, $homeDir, $comment, $flags,
    $scriptPath );

foreach $user (@users) {
    UserGetAttributes(
        $server,  $user,    $password, $passwordAge, \$privilege,
        $homeDir, $comment, $flags,    $scriptPath
    );
    my $current = time();
    my $days    = $current - $passwordAge;
    print "$user:" . scalar( localtime($days) ) . ":$comment\n";
}