From ab6f37a50ef2a0d95f25eff4a749bfcf39057d65 Mon Sep 17 00:00:00 2001
From: llornkcor <llornkcor>
Date: Sun, 14 Aug 2005 21:38:11 +0000
Subject: opie-smb needs this

---
(limited to 'bin')

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
--
cgit v0.9.0.2