summaryrefslogtreecommitdiff
authorllornkcor <llornkcor>2005-08-14 21:38:11 (UTC)
committer llornkcor <llornkcor>2005-08-14 21:38:11 (UTC)
commitab6f37a50ef2a0d95f25eff4a749bfcf39057d65 (patch) (unidiff)
tree91e13ab3324e231cd3d04432b07ac8b6574f4511
parentb2b07591469338fb360edd8f7fc8e5aa888c4021 (diff)
downloadopie-ab6f37a50ef2a0d95f25eff4a749bfcf39057d65.zip
opie-ab6f37a50ef2a0d95f25eff4a749bfcf39057d65.tar.gz
opie-ab6f37a50ef2a0d95f25eff4a749bfcf39057d65.tar.bz2
opie-smb needs this
Diffstat (more/less context) (ignore whitespace changes)
-rwxr-xr-xbin/smbfind22
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 @@
1#!/bin/sh
2#
3# export PATH=$PATH:/dos/extras/bin
4#
5# A replacement for standard perl findsmb.
6#
7# First get list of ip addresses
8#
9IPS=`nmblookup \* |awk '{print $1}'|grep -v "Send"`
10echo
11echo "IP Address Name Description"
12echo "*************************************"
13echo
14for i in $IPS
15do
16 # For each ip address that responds lookup name
17 value=`echo $i|awk '{print $1}'`
18 MACHINE=`nmblookup -T -A $value |grep "<00>"|awk '{h=tolower($1); print h}'|head -n1`
19 TYPE=`smbclient -N -L $MACHINE -I $value 2>&1 |grep "Domain="|head -n1|sed 's/ /_/g'`
20
21 echo "$value $MACHINE $TYPE"
22done