packaging/SGI/findsmb

   1 #!/bin/perl
   2 #
   3 # Prints info on all smb responding machines on a subnet.
   4 # This script needs to be run on a machine without nmbd running and be
   5 # run as root to get correct info from WIN95 clients.
   6 #
   7 # syntax:
   8 #    findsmb [subnet broadcast address]
   9 #
  10 # with no agrument it will list machines on the current subnet
  11 #
  12 # There will be a "+" in front of the workgroup name for machines that are
  13 # local master browsers for that workgroup. There will be an "*" in front
  14 # of the workgroup name for machines that are the domain master browser for
  15 # that workgroup.
  16 #
  17
  18 $SAMBABIN = "/usr/samba/bin";
  19
  20 for ($i = 0; $i < 2; $i++) {    # test for -d option and broadcast address
  21   $_ = shift;
  22   if (m/-d|-D/) {
  23     $DEBUG = 1;
  24   } else  {
  25     if ($_) {
  26       $BCAST = "-B $_";
  27     }
  28   }
  29 }
  30
  31 sub ipsort                      # do numeric sort on last field of IP address
  32 {
  33   @t1 = split(/\./,$a);
  34   @t2 = split(/\./,$b);
  35   @t1[3] <=> @t2[3];
  36 }
  37
  38 # look for all machines that respond to a name lookup
  39
  40 open(NMBLOOKUP,"$SAMBABIN/nmblookup $BCAST '*'|") ||
  41   die("Can't run nmblookup '*'.\n");
  42
  43 # get rid of all lines that are not a response IP address,
  44 # strip everything but IP address and sort by last field in address
  45
  46 @ipaddrs = sort ipsort grep(s/ \*<00>.*$//,<NMBLOOKUP>);
  47
  48 # print header info
  49
  50 print "\nIP ADDR         NETBIOS NAME   WORKGROUP/OS/VERSION $BCAST\n";
  51 print "---------------------------------------------------------------------\n";
  52
  53 foreach $ip (@ipaddrs)          # loop through each IP address found
  54 {
  55   $ip =~ s/\n//;                # strip newline from IP address
  56
  57 # find the netbios names registered by each machine
  58
  59   open(NMBLOOKUP,"$SAMBABIN/nmblookup -r -A $ip|") ||
  60         die("Can't get nmb name list.\n");
  61   @nmblookup = <NMBLOOKUP>;
  62   close NMBLOOKUP;
  63
  64 # get the first <00> name
  65
  66   @name = grep(/<00> - /,@nmblookup);
  67   $_ = @name[0];
  68   if (not $_) {
  69 # try without the -r option
  70     open(NMBLOOKUP,"$SAMBABIN/nmblookup -A $ip|") ||
  71         die("Can't get nmb name list.\n");
  72     @nmblookup = <NMBLOOKUP>;
  73     close NMBLOOKUP;
  74     @name = grep(/<00> - /,@nmblookup);
  75     $_ = @name[0];
  76   }
  77   if ($_) {                     # we have a netbios name
  78     if (/GROUP/) {              # is it a group name
  79         ($name, $aliases, $type, $length, @addresses) =
  80         gethostbyaddr(pack('C4',split('\.',$ip)),2);
  81         if (! $name) {                  # could not get name
  82             $name = "unknown nis name";
  83         }
  84     } else {
  85         /(\S+)/;
  86         $name = $1;
  87     }
  88
  89 # do an smbclient command on the netbios name.
  90
  91     open(SMB,"$SAMBABIN/smbclient -N -L '$name' -I $ip -U% |") ||
  92         die("Can't do smbclient command.\n");
  93     @smb = <SMB>;
  94     close SMB;
  95
  96     if ($DEBUG) {               # if -d flag print results of nmblookup and smbclient
  97       print "===============================================================\n";
  98       print @nmblookup;
  99       print @smb;
 100     }
 101
 102 # look for the OS= string
 103
 104     @info = grep(/OS=/,@smb);
 105     $_ = @info[0];
 106     if ($_) {                           # we found response
 107       s/.*Domain=|OS=|Server=|\n//g;    # strip out descriptions to make line shorter
 108
 109     } else {                            # no OS= string in response (WIN95 client)
 110
 111 # for WIN95 clients get workgroup name from nmblookup response
 112       @name = grep(/<00> - <GROUP>/,@nmblookup);
 113       $_ = @name[0];
 114       if ($_) {
 115         /(\S+)/;
 116         $_ = "[$1]";
 117       } else {
 118         $_ = "Unknown Workgroup";
 119       }
 120     }
 121
 122 # see if machine registered a local master browser name
 123     if (grep(/<1d>/,@nmblookup)) {
 124       $master = '+';                    # indicate local master browser
 125       if (grep(/<1b>/,@nmblookup)) {    # how about domain master browser?
 126         $master = '*';                  # indicate domain master browser
 127       }
 128     } else {
 129       $master = ' ';                    # not a browse master
 130     }
 131
 132 # line up info in 3 columns
 133
 134     print "$ip".' 'x(16-length($ip))."$name".' 'x(14-length($name))."$master"."$_\n";
 135
 136   } else {                              # no netbios name found
 137 # try getting the host name
 138     ($name, $aliases, $type, $length, @addresses) =
 139       gethostbyaddr(pack('C4',split('\.',$ip)),2);
 140     if (! $name) {                      # could not get name
 141       $name = "unknown nis name";
 142     }
 143     if ($DEBUG) {                       # if -d flag print results of nmblookup
 144       print "===============================================================\n";
 145       print @nmblookup;
 146     }
 147     print "$ip".' 'x(16-length($ip))."$name\n";
 148   }
 149 }
 150