bendonnelly.com

Extracting values from pdbedit output

The verbose output from pdbedit is kinda screwy; here's some code to pluck out specific values- I've wanted to be able to grab "Account desc" for sorting users as I migrate them.

#!/usr/bin/perl

#parse a verbose pdbedit record

#put record keys and values into a hash

 

#pdbedit command- change for your system.

$pdbedit = '/usr/local/sbin/pdbedit -s /etc/samba/pdc/smb.conf';

 

 

foreach $username (@ARGV){

        open (UREC, "$pdbedit -v $username |");

 

        foreach (){

                chomp;

                #split key from value

                @line = split(/: /);

                #looks like the values are formatted with whitespace

                #take out the leading whitespace

                $line[1] =~ s/^\s+//;

                $urec{$line[0]} = $line[1];

        }

        close (UREC);

 

        #example output

        print "$urec{'NT username'}\n";

        print "$urec{'Full Name'}\n";

        print "$urec{'Account desc'}\n";

}