#!perl -w
use strict;
use Net::Telnet;


    ##script to see how many people are still logging in
    ##as admin.  get the ip/origination, and crucify them
    ##with a particularly condescending email
    
    #get rid of previous naughtyUsers.txt, so we don't have any duplic
+ates
    unlink("naughtyUsers.txt") or warn "Unlink warning : $!\n";
    my ($telnet,@naughtyList,$ip,$userName,$mailUserName,@whoArray, @n
+btstatInfo,@mungeData,$ntID); 
    #log in to machine
    $telnet = new Net::Telnet (
            Timeout => 120);
    $telnet->open("hostname.company.com") or die "Died @ Open : $!\n";
    $telnet->login(
            Name => "username",
            Password => "password",
            ) or die "Died @ Login : $!\n";
        @whoArray = $telnet->cmd("who") or die "Died @ Who : $!\n";
        $telnet->close;

    #get relevant data - i.e. glb1prd users
    foreach my $line(@whoArray) {
    if ($line =~ /^admin/) {
        push(@naughtyList, $line);
            }
        }    

    #now resolve ip to get name - ouch
    #we are going to redirect stdout, so save it
    open (SAVEDOUT, ">&STDOUT");
    open (SAVEDERR, ">&STDERR");
    foreach my $foo (@naughtyList) {
    ($ip = $foo) =~ s/.*\((.*)\)/$1/g;
    open (STDOUT, ">>naughtyUsers.txt") or die "Died @ Open : $!\n";
    open (STDERR, ">&STDOUT") or die "Died @ Open : $!\n";
    system("nbtstat -A $ip") if ($ip =~ /^\d+/);
    close (STDOUT);
    close (STDERR);
    #set stdout back to default
    open (STDOUT, ">&SAVEDOUT");
    open (STDERR, ">&SAVEDERR");
        }
    
    #now munge data in file to get simple lines of who's logged in
    open (FH, "<naughtyUsers.txt") or die "Died @ Open : $!\n";
    #initialise userData hash
    my %userData =(
        NTUSERONE    =>    "ntuserone\@company.com",
        NTUSERTWO    =>    "ntusertwo\@company.com",
        NTUSERTHREE    =>    "ntuserthree\@company.com",
        NTUSERFOUR    =>    "ntuserfour\@company.com",
        NTUSERFIVE    =>    "ntuserfive\@company.com",
        );
    
    
    #shove everything from naughtyUsers.txt into array
    @mungeData = <FH>;
        foreach my $entry(@mungeData) {
            foreach my $key (keys %userData) {
                ( ($key, my $value) = each  %userData);
                if ($entry =~ /^$key/) { 
                push (my @mailArray, $value);
                mailNaughtyUser(@mailArray);
                    }
                }
            }
            
                
    sub mailNaughtyUser {
        my @addies = shift;
        foreach my $address(@addies) {
        #here's my problem - need to ensure duplicates
        #are pop()'d out of the array before we send a mail
            
        }
[download]

Azatoth a.k.a Captain Whiplash