| -rwxr-xr-x | bin/smbfind | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/bin/smbfind b/bin/smbfind new file mode 100755 index 0000000..7bc9ee6 --- a/dev/null +++ b/bin/smbfind @@ -0,0 +1,22 @@ +#!/bin/sh +# +# export PATH=$PATH:/dos/extras/bin +# +# A replacement for standard perl findsmb. +# +# First get list of ip addresses +# +IPS=`nmblookup \* |awk '{print $1}'|grep -v "Send"` +echo +echo "IP Address Name Description" +echo "*************************************" +echo +for i in $IPS +do + # For each ip address that responds lookup name + value=`echo $i|awk '{print $1}'` + MACHINE=`nmblookup -T -A $value |grep "<00>"|awk '{h=tolower($1); print h}'|head -n1` + TYPE=`smbclient -N -L $MACHINE -I $value 2>&1 |grep "Domain="|head -n1|sed 's/ /_/g'` + + echo "$value $MACHINE $TYPE" +done |