Show locked Machines, Shares and Files from a Samba Server

[Rübenrotze]

I have written a little perl script for linux which graphs the locked machines, shares and files from a samba server in gauge mode.

the attachment includes a little install howto.


dirk

[sumsum]

thanx for sharing your script

can't import the .XML file.
errormessage : Error: XML: Hash version does not exist.

what does that mean ?
which cacti version do you use for running that script ?

[Rübenrotze]

i use the latest stable version (0.8.6d)

http://forums.cacti.net/post-28880.html
it seems to be a version conflict

[jer00n]

Hi,

when I run that script, I get 3 errors:
grep: The -P option is not supported
grep: The -P option is not supported
grep: The -P option is not supported

something seems to be wrong with
grep -c -P '(\\d+)'`;

my grep version is 2.5.1.ds1-4

can you help me with this?

regards,

jeroen

[Rübenrotze]

the -P opion is for the perl regex >'(\\d+)'<, i think you have to install perl.

dirk

[jer00n]

hi,

I have perl installed:
>This is perl, v5.8.4 built for i386-linux-thread-multi

it was already installed.

any other ideas?

regards,

jeroen

[Rübenrotze]

for this solution: no

but you can count all lines with grep (-c option) an than subtract the number of lines which are program outputs like version number, descriptions ...

dirk

[slebourdon]

Tanks a lot for this script, it works fine with cacti 0.8.6f on SME Server 6.0.1-01.

Stephane

[rayel]

I modified the template to work with SNMP query. I Hope It helps somebody...

no problem with "grep: The -P option is not supported"

PS: I dont checked the results values.

[piccilli]

I modified the template to work with SNMP query. I Hope It helps somebody...

no problem with "grep: The -P option is not supported"

PS: I dont checked the results values.

Here snmpwalk works extremaly slow and my graphics continues empty.

time snmpwalk -v 1 -c public 10.100.0.252 .1.3.6.1.4.1.2021.55.1.101.1 -t 120
UCD-SNMP-MIB::ucdavis.55.1.101.1 = STRING: "340"

real 5m9.265s
user 0m0.041s
sys 0m0.010s



time snmpwalk -v 1 -c public 10.100.0.252 .1.3.6.1.4.1.2021.55.2.101.1 -t 120
UCD-SNMP-MIB::ucdavis.55.2.101.1 = STRING: "1689"

real 7m30.465s
user 0m0.046s
sys 0m0.003s


time snmpwalk -v 1 -c public 10.100.0.252 .1.3.6.1.4.1.2021.55.3.101.1 -t 120
UCD-SNMP-MIB::ucdavis.55.3.101.1 = STRING: "612"

real 0m0.132s
user 0m0.040s
sys 0m0.009s


why is smbstatus too slow here?

[rayel]

if you run smbstatus manually, it returns the values imediatelly?

[lanyao]

I modified the template to work with SNMP query. I Hope It helps somebody...

no problem with "grep: The -P option is not supported"

PS: I dont checked the results values.

Hi, I think it's really very useful for me, but when I ran the script I got this messages:
# ./sambanew.pl
Use of uninitialized value in string eq at ./sambanew.pl line 9.
Use of uninitialized value in string eq at ./sambanew.pl line 9.
Use of uninitialized value in string eq at ./sambanew.pl line 9.
Use of uninitialized value in scalar chomp at ./sambanew.pl line 18.
Use of uninitialized value in string at ./sambanew.pl line 20.
Is there something wrong with my machine?
I can also get the output when run snmpwork from a remote server:
# snmpwalk -v 1 -c public 192.168.32.60 .1.3.6.1.4.1.2021.55.3.101.1
UCD-SNMP-MIB::ucdavis.55.3.101.1 = STRING: "Processes:11 Shares:12 Files:0"
but got no graph

My question: How can I get the samba status from a remote cacti server?

[gagadget]

I was thinking somebody could be interested in a script not using grep at all :

Of course, adapt the paths to smbstatus.

Code: Select all

/usr/local/bin/perl -w
###############################################################################
##
## local-samba-stats.pl
##
## Authors : Gael Jean
##
## Arguments : See help
##
################################################################################

use strict ;

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

my ( $status ) = eval { Main ( @ARGV ) || 0 } ;

if ( $@ ) {
        print STDERR $@ ;
        $status = 1 ;
}

exit $status ;

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

sub Main {

        my ( $files, $processes, $shares ) = 0 ;

        my $command = "/exploit/samba/bin/smbstatus -p" ;
        open ( OUTPUT, "$command |" ) || die "$!\n" ;

        # Parsing output
        foreach ( <OUTPUT> )
        {
                $processes++ if /^\d+/ ;
        }
        close ( OUTPUT ) ;

        my $command = "/exploit/samba/bin/smbstatus -S" ;
        open ( OUTPUT, "$command |" ) || die "$!\n" ;

        # Parsing output
        foreach ( <OUTPUT> )
        {
                $shares++ if /^[^\s]+\s+\d+/ ;
        }
        close ( OUTPUT ) ;

        my $command = "/exploit/samba/bin/smbstatus -L" ;
        open ( OUTPUT, "$command |" ) || die "$!\n" ;

        # Parsing output
        foreach ( <OUTPUT> )
        {
                $files++ if /^\d+/ ;
        }
        close ( OUTPUT ) ;

        # Print output
        print "processes:$processes shares:$shares files:$files" ;
        print "\n" ;

}

Regards.

[sllywhtboy]

if you replace "grep -c -P" with "grep -c -e" the first perl script works.

[nightwisher]

I try on gentoo 2008.0 to install !

But no graph ...

i use second modified template and folow instruction !

Need help