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.
8 # findsmb [subnet broadcast address]
10 # with no agrument it will list machines on the current subnet
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
18 $SAMBABIN = "/usr/bin";
20 for ($i = 0; $i < 2; $i++) { # test for -d option and broadcast address
31 sub ipsort # do numeric sort on last field of IP address
38 # look for all machines that respond to a name lookup
40 open(NMBLOOKUP,"$SAMBABIN/nmblookup $BCAST '*'|") ||
41 die("Can't run nmblookup '*'.\n");
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
46 @ipaddrs = sort ipsort grep(s/ \*<00>.*$//,<NMBLOOKUP>);
50 print "\nIP ADDR NETBIOS NAME WORKGROUP/OS/VERSION $BCAST\n";
51 print "---------------------------------------------------------------------\n";
53 foreach $ip (@ipaddrs) # loop through each IP address found
55 $ip =~ s/\n//; # strip newline from IP address
57 # find the netbios names registered by each machine
59 open(NMBLOOKUP,"$SAMBABIN/nmblookup -r -A $ip|") ||
60 die("Can't get nmb name list.\n");
61 @nmblookup = <NMBLOOKUP>;
64 # get the first <00> name
66 @name = grep(/<00>/,@nmblookup);
68 if ($_) { # we have a netbios name
69 if (/GROUP/) { # is it a group name
70 ($name, $aliases, $type, $length, @addresses) =
71 gethostbyaddr(pack('C4',split('\.',$ip)),2);
72 if (! $name) { # could not get name
73 $name = "unknown nis name";
76 # The Netbios name can contain lot of characters also '<' '>'
77 # and spaces. The follwing cure inside name space but not
78 # names starting or ending with spaces
79 /(.{1,15})\s+<00>\s+/;
83 # do an smbclient command on the netbios name.
85 open(SMB,"$SAMBABIN/smbclient -N -L $name -I $ip -U% |") ||
86 die("Can't do smbclient command.\n");
90 if ($DEBUG) { # if -d flag print results of nmblookup and smbclient
91 print "===============================================================\n";
96 # look for the OS= string
98 @info = grep(/OS=/,@smb);
100 if ($_) { # we found response
101 s/Domain=|OS=|Server=|\n//g; # strip out descriptions to make line shorter
103 } else { # no OS= string in response (WIN95 client)
105 # for WIN95 clients get workgroup name from nmblookup response
106 @name = grep(/<00> - <GROUP>/,@nmblookup);
109 # Same as before for space and characters
110 /(.{1,15})\s+<00>\s+/;
113 $_ = "Unknown Workgroup";
117 # see if machine registered a local master browser name
118 if (grep(/<1d>/,@nmblookup)) {
119 $master = '+'; # indicate local master browser
120 if (grep(/<1b>/,@nmblookup)) { # how about domain master browser?
121 $master = '*'; # indicate domain master browser
124 $master = ' '; # not a browse master
127 # line up info in 3 columns
129 print "$ip".' 'x(16-length($ip))."$name".' 'x(14-length($name))."$master"."$_\n";
131 } else { # no netbios name found
132 # try getting the host name
133 ($name, $aliases, $type, $length, @addresses) =
134 gethostbyaddr(pack('C4',split('\.',$ip)),2);
135 if (! $name) { # could not get name
136 $name = "unknown nis name";
138 if ($DEBUG) { # if -d flag print results of nmblookup
139 print "===============================================================\n";
142 print "$ip".' 'x(16-length($ip))."$name\n";