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
>
-- !! 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.