1:
2:
3:

#!/bin/sh
PINGBIN=/bin/ping
$PINGBIN -p 2b2b2b415448300d $*

1:
2:
3:
4:
5:
6:

#!/bin/bash
FPINGBIN=/usr/sbin/fping
IPFILE=/etc/scripts/localips.txt
$FPINGBIN -a -b 32 -c 1 -e -n -r 1 -f $IPFILE 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:

#!/usr/bin/perl -wT
#
# Copyright (C) 1999,2000  Markus Wiesner (markus@wiesner-net.de)
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#

# In welchem Verzeichnis befinden sich "nmblookup" und "smbclient"?
$BINDIR="/usr/bin";

# 1 = Rechner ueber Broadcasts finden
# 2 = Rechner ueber die Liste der Masterbrowser finden
# Die 2. Methode ist vorzuziehen, da sie schneller ist, weniger Traffic verursacht und auch
#   in gerouteten Netzen mit WINS Server funktionieren sollte
$LOOKUP_METHOD="2";


####################################################################
### ab hier braucht (hoffentlich ;) ) nix mehr geaendert werden ###

sub prepare_env {
        use Time::localtime;
        delete $ENV{PATH};
}

sub set_globals {
        @SERVER = ();
        # Suche alle "local master"
        chomp(@MASTER_LIST=`$BINDIR/nmblookup -M -`);
}

prepare_env;
set_globals;

foreach $MASTER_LINE (@MASTER_LIST) {
        if ($MASTER_LINE =~ /^(\d+\.\d+\.\d+\.\d+)\s+..__MSBROWSE__..*$/) {
                chomp(@NODESTAT=`$BINDIR/nmblookup -A "$1"`);
                if ("$LOOKUP_METHOD" eq "1") {
# ermittle die Arbeitsgruppe des "local master"
                        $GROUP="";
                        foreach $NBNAME (@NODESTAT) {
                                if ($NBNAME =~ /^\s+(.*?)\s+\<1e\>\ \-\ \<GROUP\>.*$/) {
                                        $GROUP="$1";
                                        last;
                                }
                        }
                        if ("$GROUP" ne "") {
# finde alle Rechner, die derselben Arbeitsgruppe angehoeren
                                chomp(@HOSTLIST=`$BINDIR/nmblookup "$GROUP"`);
                                foreach $HOST (@HOSTLIST) {
                                        if ($HOST =~ /^(\d+\.\d+\.\d+\.\d+)\s+$GROUP.*$/) {
# ermittle die NetBIOS-Namen der gefundenen Rechner
                                                chomp(@NODESTAT=`$BINDIR/nmblookup -A "$1"`);
                                                foreach $NBNAME (@NODESTAT) {
                                                        if ($NBNAME =~ /^\s+(.*?)\s+\<20\>\ \-\ \s+.*$/) {
                                                                push (@SERVER, "$1"); # NetBIOS-Name endlich gefunden :)
                                                                last;
                                                        }
                                                }
                                        }
                                }
                        }
                } else {
# ermittle den NetBIOS-Namen des "local master"
                        $HOST="";
                        foreach $NBNAME (@NODESTAT) {
                                if ($NBNAME =~ /^\s+(.*?)\s+\<20\>\ \-\ \s+.*$/) {
                                        $HOST="$1";
                                        last;
                                }
                        }
                        if ("$HOST" ne "") {
# hole die Liste der Rechner in der Arbeitsgruppe des Masterbrowser
                                chomp(@SHARELIST = `$BINDIR/smbclient -L "$HOST" -N -R wins,bcast`);
                                $pos=0;
                                foreach $SHARE (@SHARELIST) {
                                        if ("$pos" eq "0") {
                                                if ("$SHARE" eq "\tServer               Comment") { $pos=1; } # Beginn der Serverliste gefunden
                                        } elsif ("$pos" eq "1") {
                                                if ("$SHARE" eq "\t---------            -------") { $pos=2; } # Unterstreichung der Serverliste gefunden
                                        } elsif ("$pos" eq "2") {
                                                if ("$SHARE" eq "") { last; } # Ende der Serverlist
                                                if ($SHARE =~ /^\s+(.{15})\s+.*$/) {
                                                        # Name gefunden ... ist nur etwas schwierig vom Kommentar zu trennen,
                                                        #   da im Namen (max. 15 Zeichen) auch Leerzeichen vorkommen koennen :(
                                                        $TMP="$1";
                                                        $TMP =~ /^(.*?)\s*$/;
                                                        push (@SERVER, "$1");
                                                }
                                        }
                                }
                        }
                }
        }
}
if (@SERVER == 0) {
        print "Keine Rechner gefunden :-(\n";
        exit;
}
print "Habe ", scalar(@SERVER), " Rechner gefunden:\n";
foreach $HOST (@SERVER) {
        print "- "$HOST"\n";
}
print "\n";
foreach $HOST (@SERVER) {
        print "Shares auf $HOST:\n";
        chomp(@SHARELIST=`$BINDIR/smbclient -L "$HOST" -N -R wins,bcast`);
        foreach $SHARE (@SHARELIST) {
                if ($SHARE =~ /^\s+(.*?)\s+Disk\s+.*$/) {
                        print "- $1\n";
                }
        }
}