nagios: Added smb and wins service targets.

nagios/files/check_smb

@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+
+use strict; 
+use Getopt::Long qw(:config no_ignore_case);
+use Time::HiRes qw/ time sleep /;
+
+sub usage() {
+    print "Usage: check_smb -H <host>\n"
+}
+
+my $host;
+my $result = GetOptions(
+    "H|host=s"  => \$host,
+    );
+
+if (!$host) {
+    usage();
+    exit 3;
+}
+
+my ($start, $end, $time, @output, $status);
+
+$start = time;
+@output = `/usr/bin/smbclient -N -L '$host' 2>&1`;
+$status = $?;
+$end = time;
+
+$time = sprintf("%.3f", $end - $start);
+
+if ($status != 0) {
+    print "SMB CRITICAL: " . join(" ", @output);
+    exit(2);
+} else {
+    foreach(@output) {
+        next unless /^Domain=.*/;
+        print "SMB OK: ${time} seconds response time. $_";
+        exit(0);
+    }
+}