That script was simply meant to be a replacement for the script in the
examples directory. I'm thinking code elsewhere will need to be
modified to fix tkined for allowing netmasks in the discovery process.
If someone would like to tell me where to look, I will investigate the
possiblity of merging that code into the GUI.
Thanks,
Matthew
Vu Pham wrote:
>
> Sorry for my question, but I am quite new to Scotty.
> I rename that file to discover, copy to /usr/local/lib/tnm2.1.9/examples,
> change to appropriate executable mode. And what else do I need to do ?
>
> How can I apply it to the menu IP-Discover-Network ?
>
> Thanks,
>
> Vu
> ----- Original Message -----
> From: Matthew Levine <mlevine@cisco.com>
> To: <duncant@mitre.org>
> Cc: Vu Pham <vu@sivell.com>; Scotty Mailing List <tkined@ibr.cs.tu-bs.de>
> Sent: Wednesday, August 11, 1999 4:15 PM
> Subject: Re: [tkined] network & subnet
>
> > Hi all,
> >
> > I've fixed the discover script (attached) in the examples directory to
> > use subnet masks. The network address now needs to be a four octet
> > dotted-decimal address (ie 192.168.1.0) instead of the old format it
> > wanted (192.168.1 or 192.168).
> >
> > The subnet mask must follow the address:
> >
> > discover 192.168.1.0 255.255.255.192
> >
> > You can specify multiple networks:
> >
> > discover 192.168.1.0 255.255.255.192 10.22.33.0 255.255.255.0
> >
> > You can even specify an address within the range of interest if you're
> > not sure what the network number is:
> >
> > discover 192.168.1.201 255.255.255.224
> >
> > That will search for hosts in the range of 192.168.1.193 to
> > 192.168.1.222 (don't spam the broadcast address at .223).
> >
> > All the other options like delay, window, etc. are still supported.
> >
> > Was there another file in question?
> >
> > Please tell me what you think of this revised script.
> >
> > Thanks,
> > Matthew
> >
> > Duncan Thomson wrote:
> > >
> > > Vu Pham wrote:
> > > >
> > > > The subnetmask of my network is 255.255.255.192, my network number is
> > > > 209.44.205.128, ( from 128 to 191 ) but when I typed in this number, I
> got
> > > > nothing.
> > > >
> > > > How do I need to type in with the above information so that I discover
> only
> > > > PCs on my subnet.
> > >
> > > Vu,
> > >
> > > You really can't. At least not unless it's been added since the version
> > > I've got (2.1.6). The problem is that there's no way to enter a
> > > netmask. You are prompted only for an IP address. The ip_discover.tcl
> > > code parses this and determines if it's a class A, B, or C network, and
> > > then proceeds to probe that entire network address space. This would be
> > > relatively easy to fix by modifying ip_discover.tcl. Just add a prompt
> > > for a netmask and use that to determine which addresses to probe.
> > > (Again, I'm only looking at 2.1.6, I'm sure someone will correct me if
> > > this has already been changed in a newer version.)
> > >
> > > Duncan
> > >
> > > > ----- Original Message -----
> > > > From: mr sinista <mr_sinista@yahoo.com>
> > > > To: Vu Pham <vu@sivell.com>
> > > > Sent: Tuesday, August 10, 1999 4:32 PM
> > > > Subject: Re: [tkined] network & subnet
> > > >
> > > > > U have to give it your correct netmask for your network. As as for
> > > > > yours i dont know what it is..
> > > > >
> > > > > --- Vu Pham <vu@sivell.com> wrote:
> > > > > > Hi all,
> > > > > >
> > > > > > I am running Scotty 2.1.9 on Solaris 7 x86.
> > > > > >
> > > > > > I tried the tool IP Trouble and saw it works well
> > > > > > for me.
> > > > > > But when I tried the IP monitor, I got something I
> > > > > > didn't understand.
> > > > > >
> > > > > > I choose IP-Discover, and at the prompt I typed in
> > > > > > 209.44.205.128 ( my
> > > > > > Solaris has IP 209.44.205.154/255.255.255.192 ), and
> > > > > > it returned very fast
> > > > > > w/ a message :
> > > > > >
> > > > > > Discover 209.44.205.128 from Neptune
> > > > > > [209.44.205.154].
> > > > > > Discover finish in 0 seconds, and no thing appears.
> > > > > >
> > > > > > But, if I typed in 209.44.205.0, it worked for a
> > > > > > while and displayed a lot
> > > > > > of computers, but a lof of them are not in my
> > > > > > subnet.
> > > > > >
> > > > > > I just want to discover my subnet. How can I do it ?
> > > > > >
> > > > > > Many thanks,
> > > > > >
> > > > > > Vu
> > > > > >
> > > > > >
> > > > > > --
> > > > > > !! This message is brought to you via the `tkined &
> > > > > > scotty' mailing list.
> > > > > > !! Please do not reply to this message to
> > > > > > unsubscribe. To subscribe or
> > > > > > !! unsubscribe, send a mail message to
> > > > > > <tkined-request@ibr.cs.tu-bs.de>.
> > > > > > !! See http://wwwsnmp.cs.utwente.nl/~schoenw/scotty/
> > > > > > for more information.
> > > > > >
> > > > >
> > > > > _____________________________________________________________
> > > > > Do You Yahoo!?
> > > > > Bid and sell for free at http://auctions.yahoo.com
> > > >
> > > > --
> > > > !! This message is brought to you via the `tkined & scotty' mailing
> list.
> > > > !! Please do not reply to this message to unsubscribe. To subscribe or
> > > > !! unsubscribe, send a mail message to
> <tkined-request@ibr.cs.tu-bs.de>.
> > > > !! See http://wwwsnmp.cs.utwente.nl/~schoenw/scotty/ for more
> information.
> > > --
> > > !! This message is brought to you via the `tkined & scotty' mailing
> list.
> > > !! Please do not reply to this message to unsubscribe. To subscribe or
> > > !! unsubscribe, send a mail message to <tkined-request@ibr.cs.tu-bs.de>.
> > > !! See http://wwwsnmp.cs.utwente.nl/~schoenw/scotty/ for more
> information.
> >
> > --
> > ---
> > ------
> > Matthew Levine
> > Development Test (Consumer Line Of Business)
> > Cisco Systems, Santa Cruz http://www.cisco.com/
> > mlevine@cisco.com (831) 457 - 5431
>
> ----------------------------------------------------------------------------
> ----
>
> > #!/bin/sh
> > # the next line restarts using scotty -*- tcl -*- \
> > exec scotty2.1.9 "$0" "$@"
> >
> > package require Tnm 2.1
> >
> > # define a regular expression used later
> > set IP_ADDRESS
> (\[1-9]\[0-9]*).(\[0-9]\[0-9]*).(\[0-9]\[0-9]*).(\[0-9]\[0-9]*)
> >
> > ##
> > ## Send a snmp request to all ip addresses on a subnet identified by
> network
> > ## address and mask. In reality, the network range routine is smart
> enough
> > ## to deduce the network number so any address will do for the network
> number.
> > ##
> > ## Use with care as this script floods you network! It is
> > ## just an example how fast asynchronous SNMP operations can work.
> > ##
> >
> > proc SnmpDiscover {net mask delay window retries timeout} {
> > scan [netrange $net $mask] "%s %s" low high
> > for { set addr [ip2hex $low] } { $addr < [ip2hex $high] } { incr
> addr } {
> > set s [snmp session -address [hex2ip $addr] -delay $delay \
> > -window $window -retries $retries -timeout $timeout]
> > $s get sysDescr.0 {
> > if {"%E" == "noError"} {
> > set d [lindex [lindex {%V} 0] 2]
> > regsub -all "\[\n\r\]" $d "" d
> > puts "[%S cget -address]\t$d"
> > }
> > %S destroy
> > }
> > update
> > }
> > snmp wait
> > }
> >
> > ##
> > ## Send an icmp request to all ip addresses on a subnet identified by
> network
> > ## address and mask. In reality, the network range routine is smart
> enough
> > ## to deduce the network number so any address will do for the network
> number.
> > ##
> > ## Use with care as this script floods you network!
> > ## It is just an example how fast our icmp command can work.
> > ##
> >
> > proc IcmpDiscover {net mask delay window retries timeout} {
> > set hosts ""
> > scan [netrange $net $mask] "%s %s" low high
> > for { set addr [ip2hex $low] } { $addr < [ip2hex $high] } { incr
> addr } {
> > lappend hosts [hex2ip $addr]
> > }
> > if {[catch {icmp -delay $delay -retries $retries -timeout $timeout \
> > echo $hosts} result]} {
> > puts stderr $result
> > continue
> > }
> > foreach elem $result {
> > set ip [lindex $elem 0]
> > set rtt [lindex $elem 1]
> > if {$rtt >= 0} {
> > puts "$ip\ticmp echo $rtt ms"
> > }
> > }
> > }
> >
> > ##
> > ## Convert a dotted decimal IP address into a hexadecimal address. Bit
> > ## pushing operations are easier on the hex representation of the address.
> > ##
> >
> > proc ip2hex { addr } {
> > scan $addr "%d.%d.%d.%d" a b c d
> > foreach o [list $a $b $c $d] {
> > set o [format %x $o]
> > if { [string length $o] == 1 } {
> > set o "0$o"
> > }
> > lappend hex $o
> > }
> > return "0x[join $hex ""]"
> > }
> >
> > ##
> > ## Convert a hexadecimal IP address into a dotted decimal IP address. Bit
> > ## pushing operations may be easier on hex addresses but the snmp and icmp
> > ## commands operate on dotted decimal addresses.
> > ##
> >
> > proc hex2ip { addr } {
> > set ip ""
> > for { set i 0 } { $i <= 3 } { incr i } {
> > set o [expr $addr & 0xff]
> > set addr [expr $addr >> 8]
> > set ip [linsert $ip 0 $o]
> > }
> > return [join $ip "."]
> > }
> >
> > ##
> > ## Get the valid range of IP addresses in a network given an IP address
> and
> > ## a netmask. In order to make the discover smarter, make sure it does
> not
> > ## cross subnet boundaries.
> > ##
> >
> > proc netrange { ipaddr mask } {
> > set ipaddr [ip2hex $ipaddr]
> > set mask [ip2hex $mask]
> > set netnum [expr $ipaddr & $mask]
> > set range [expr ~$mask]
> > return "[hex2ip [expr $netnum + 1]] [hex2ip [expr $netnum + $range]]"
> > }
> >
> > proc usage { } {
> > puts stderr {usage: discover [-d delay] [-r retries] [-t timeout] [-w
> window] [-snmp] [-icmp] network mask ?network ?mask}
> > exit 42
> > }
> > if {$argv == ""} { usage }
> >
> > mib load rfc1213.mib
> >
> > set discover SnmpDiscover
> > set delay 10
> > set window 255
> > set retries 2
> > set timeout 5
> >
> > set newargv ""
> > set parsing_options 1
> > while {([llength $argv] > 0) && $parsing_options} {
> > set arg [lindex $argv 0]
> > set argv [lrange $argv 1 end]
> > if {[string index $arg 0] == "-"} {
> > switch -- $arg {
> > "-d" {
> > set delay [lindex $argv 0]
> > set argv [lrange $argv 1 end]
> > }
> > "-r" {
> > set retries [lindex $argv 0]
> > set argv [lrange $argv 1 end]
> > }
> > "-t" {
> > set timeout [lindex $argv 0]
> > set argv [lrange $argv 1 end]
> > }
> > "-w" {
> > set window [lindex $argv 0]
> > set argv [lrange $argv 1 end]
> > }
> > "-snmp" { set discover SnmpDiscover }
> > "-icmp" { set discover IcmpDiscover }
> > "--" { set parsing_options 0 }
> > }
> > } else {
> > set parsing_options 0
> > lappend newargv $arg
> > }
> > }
> > set argv [concat $newargv $argv]
> > if { [expr [llength $argv] % 2] != 0 } { usage }
> > while { [llength $argv] > 0 } {
> > scan [lrange $argv 0 1] "%s %s" network mask
> > set argv [lreplace $argv 0 1]
> > if { [regexp $IP_ADDRESS $network] && [regexp $IP_ADDRESS $mask] } {
> > $discover $network $mask $delay $window $retries $timeout
> > } else {
> > usage
> > }
> > }
> > exit
> >
----- ------ Matthew Levine Development Test (Consumer Line Of Business) Cisco Systems, Santa Cruz http://www.cisco.com/ mlevine@cisco.com (831) 457 - 5431-- !! This message is brought to you via the `tkined & scotty' mailing list. !! Please do not reply to this message to unsubscribe. To subscribe or !! unsubscribe, send a mail message to <tkined-request@ibr.cs.tu-bs.de>. !! See http://wwwsnmp.cs.utwente.nl/~schoenw/scotty/ for more information.