Windows Perl Scripting Forums » Topic: Logegd users script

Windows Perl Scripting Forums » Topic: Logegd users script http://www.roth.net/forums/ Windows Perl Scripting Forums » Topic: Logegd users script en Thu, 23 May 2013 08:08:50 +0000 Dave on "Logegd users script" http://www.roth.net/forums/topic.php?id=8#post-37 Sun, 13 Aug 2006 17:58:20 +0000 Dave 37@http://www.roth.net/forums/ I am not sure what issues you are running into, but your script works fine for me as long as I change the server name. However with a slight rewrite of code it is working mightly well. This version takes options: [-s SERVER] [-u USER1 [-u USER2 [...]]] <code> #!/usr/local/bin/perl -w #-*-perl-*- # use strict; use Win32API::Net; use vars qw ( %UserInfo @WhoList ); use Win32::NetAdmin; use Getopt::Long; my ($VERSION) = '$Revision: 1.0 $' =~ /([.\d]+)/; my $warnings = 0; # Print a usuage message on a unknown option. $SIG {__WARN__} = sub {    if (substr ($_ [0], 0, 14) eq "Unknown option") {die "Usage"};    require File::Basename;    $0 = File::Basename::basename ($0);    $warnings = 1;    warn "$0: @_"; }; $SIG {__DIE__} = sub {    require File::Basename;    $0 = File::Basename::basename ($0);    if (substr ($_ [0], 0, 5) eq "Usage")    {       die <<EOF;          $0 (NT Perl bin utils) $VERSION          $0 [-s server] [-u userid [-u ...] ] [ -h ] EOF    }    die "$0: @_"; }; my %Config = (   server => "" ); Configure( \%Config ); if( $Config{help} ) {     die "Usage"; } my $Level = "11"; # make UserGetInfo() return lastLogon my $Filter = "0"; # I do not know what this does and why # it must be numeric. if( scalar $Config{users} ) {    foreach my $User ( @{$Config{users}} )    {       push( @WhoList, $User) if( Win32::NetAdmin::UsersExist( $Config{server}, $User ) );    } } else {    Win32::NetAdmin::GetUsers( $Config{server}, $Level, \@WhoList ) or die "$^E\n"; } foreach my $UserName ( sort( { lc $a cmp lc $b} @WhoList ) ) {    printf( "%- 26s Last login: %s\n", $UserName, UserGetInfo( $UserName ) ); } sub UserGetInfo {    my $userid = shift ( @_ );    my $length = 25 - length $userid;    my $last;    if ( Win32API::Net::UserGetInfo ( $Config{server}, $userid, $Level, \%UserInfo ) ) {       if ( 0 == $UserInfo{lastLogon}  )       {          $last = "never";       }       else       {          $last = localtime ( $UserInfo{lastLogon} );       }    }    else    {       $last = "unknown";    }    return ( $last ); } sub Configure {     my( $Config ) = @_;     my $Result;     Getopt::Long::Configure( "prefix_pattern=(-|\/)" );     $Result = GetOptions( $Config,                           qw(                             server|s=s                             users|u=s@                             help|?                           ) );     $Config->{help} = 1 unless( $Result ); } </code> akearins on "Logegd users script" http://www.roth.net/forums/topic.php?id=8#post-15 Tue, 25 Jul 2006 18:46:51 +0000 akearins 15@http://www.roth.net/forums/ Below is a script to allow a user see the last users logged onto a host. However the environment it will be run in (university) needs to read the user log form a particular host (entered by user e.g. Lab.ABC) and display all users in that log. At prsenet it only dispalys this information form the host machine it is running from. Help appreciated #!/usr/local/bin/perl -w #-*-perl-*- # use strict; use Win32API::Net; use vars qw ( %UserInfo @WhoList ); use Win32::NetAdmin; my ($VERSION) = '$Revision: 1.0 $' =~ /([.\d]+)/; my $warnings = 0; # Print a usuage message on a unknown option. $SIG {__WARN__} = sub { if (substr ($_ [0], 0, 14) eq "Unknown option") {die "Usage"}; require File::Basename; $0 = File::Basename::basename ($0); $warnings = 1; warn "$0: @_"; }; $SIG {__DIE__} = sub { require File::Basename; $0 = File::Basename::basename ($0); if (substr ($_ [0], 0, 5) eq "Usage") { die <<EOF; $0 (NT Perl bin utils) $VERSION $0 [ userid ] [ -h ] EOF } die "$0: @_"; }; die "Usage" if ( $ARGV[0] && $ARGV[0] eq "-h" ); my $Server = ""; # localhost only my $Level = "11"; # make UserGetInfo() return lastLogon my $Filter = "0"; # I do not know what this does and why # it must be numeric. Win32::NetAdmin::GetUsers ( $Server, $Filter, \@WhoList ) or die "$^E\n" unless $ARGV[0]; if ( exists $ARGV[0] ) { $WhoList[0] = $ARGV[0] if Win32::NetAdmin::UsersExist ( $Server, $ARGV[0] ) or exit; } foreach my $UserName ( @WhoList ) { my ( $LastLogin, $NameLength ) = UserGetInfo( $UserName ); printf "%s %$ {NameLength}s: %s\n", $UserName, "Last login", $LastLogin; } sub UserGetInfo { my $userid = shift ( @_ ); my $length = 25 - length $userid; my $last; if ( Win32API::Net::UserGetInfo ( $Server, $userid, $Level, \%UserInfo ) ) { if ( $UserInfo{lastLogon} == 0 ) { $last = "never"; } else { $last = localtime ( $UserInfo{lastLogon} ); } } else { $last = "unknown"; } return ( $last, $length ); }