Who's on What

" FILTER=' /console *[0-4] /d / 0 Disc rdpwd/d /^[0-9] Idle /d /^[0-9] Down /d /^rdp-tcp *6553[67] Listen rdpwd/d /^ica-tcp *6553[67] Listen wdica/d #Server 2008 adds a couple more /^rdp-tcp *65536 Listen *$/d /^.\+services *0 Disc *$/d ' #http://support.microsoft.com/kb/186592 # Other possibilities than Idle|Listen|Active|Disc: Conn, ConnQ, Shadow, Down, Init. Servers=0 Conns=0 Console=0 Disc=0 Idle=0 icatcp=0 rdptcp=0 for S in `$BBHOME/bin/bb localhost "hobbitdboard test=$COLUMN" | sed 's/|.*//'`; do #The output of this is essentially identical to what one would get if `cat`-ing the $BBLOGS if # "hobbitd_filestore --status" was launched. $BBHOME/bin/bb localhost "hobbitdlog $S.$COLUMN" | tail -n +2 | sed "1,2d $FILTER" | sed ' #align all text flush right on a 76-column width, from sed1line #resulting columns: 1/19/44/48/56 (or 0/18/43/47/55, or 18|25|4|8|6 :a s/^.\{1,75\}$/ &/ ta ' | sed 's/^.//;s/>/\>/g' > $LOGFILE #Last sed: strip off first character and trailing spaces, HTML entity for > if [ ! -s $LOGFILE ]; then continue fi #sed 's/^$.\{17\}$ $.\{24\}$ $.\{3\}$ $.\{7\}$ $.\{5\}$/" cat $LOGFILE | sed "s/^$.\{17\}$ $.\{24\}$ $.\{3\}$ $.\{7\}$ $.*$/

*Grouped by host*
Host	SESSIONNAME USERNAME ID STATE TYPE
\1	\2	\3	\4	\5/' > $LOGFILE #http://support.microsoft.com/kb/186592 Servers=$(($Servers + 1)) Conns=$(($Conns + `wc -l < $LOGFILE`)) Disc=$(($Disc + `sed '/ Disc /!d' < $LOGFILE \| wc -l`)) #Disc=$(($Disc + `sed '/ Disc$/!d' < $LOGFILE \| wc -l`)) Idle=$(($Idle + `sed '/ Idle/!d' < $LOGFILE \| wc -l`)) Console=$(($Console + `sed '/^console /!d' < $LOGFILE \| wc -l`)) icatcp=$(($icatcp + `sed '/^ica-tcp/!d' < $LOGFILE \| wc -l`)) rdptcp=$(($rdptcp + `sed '/^rdp-tcp/!d' < $LOGFILE \| wc -l`)) [ "`echo $S \| sed /-lic/d`" ] \|\| { Lics=$(($Lics + 1)); } #echo $S $L $M \| sed 's/^/
/;s/ /	/g;s/$/<\/tr>/' echo "
$S	`sed 's/ *$//' < $LOGFILE`
$S	\1	\2	\3	\4	\5/" >> $LOGFILE.$$ done echo "

$Servers hosts have $Conns user connections ($Disc disconnected$Idle, $KNOWNCONSOLE+$Console console, $rdptcp rdp-tcp, $icatcp ica-tcp$unknowns) as of `date`