computer:2:know

check_mk local check: checkDomainAdmins.pl

 #####################################################

#

# checkDomainAdmins.pl

#

# check_mk local check that uses net use command to validate number of users found in group

#

# needs perl .. recommendation is: http://strawberryperl.com/

#

# tested on a windows 2012 server

#

# (c) by m.wendig v2017-08

#

#####################################################

use Data::Dumper;

use strict;



my %group2check;

$group2check{'Domänen-Admins'}=28;

#$group2check{'other-group'}=20;

#print Dumper(%group2check);



foreach my $group ( keys %group2check ){     

    my $startline=0;

    my $usercount=0;

    my $userline='';

    my $numberOfUsers=$group2check{$group};

    

    #print "checking group: $group\n";

    

	#choose the right character set because of german special character

    open(IN,"chcp 1252 & net group /dom $group 2>nul |");

    while(<IN>){

        chomp($_);

        my $line =$_;    

        $line =~ s/^\s*//;

        $line =~ s/\s*$//;

        next if $line eq "";

        next if $line =~ /^Der Befehl wurde erfolgreich/;    

		next if $line =~ /^The command completed successfully/;

        if ($startline){

            #print "$line\n";

            my @larr = split /\s\s*/,$line;

        

            #print Dumper(@larr);

            foreach my $elem (@larr){

                $usercount++;

                $userline.="$elem,";

            }        

        }

        

        $startline = 1 if  $line =~ /^-------------------------------------------------/;

    }

    close(IN);



	$group =~ s/ä/ae/g;

    if ($numberOfUsers == $usercount){

        print "0 group_$group member=$usercount number of found users: $usercount, names $userline\n";

    }else{

        print "2 group_$group member=$usercount number of found users: $usercount, error number should be $numberOfUsers!! $userline\n";

    }

}
Computer and IT knowledge - things to know

check_mk local check: checkDomainAdmins.pl
