In <s805855a.028@ATRIUM04> [log in to unmask] writes:
> > I immediatly found the ping command, but every time I executed ping it > jus
> st
> returned to the command prompt without doing anything. No message, > or
> security violation. I had to log on as manager .sys before it would > work.
> >
> > Does ping requiere a special capability.
Yes; I believe it wants NA or NM.
And while we're all throwing in our favorite PING command files ad nauseum,
here's one I did recently that we use in a batch job to check the status of
various routers on our network. It pings and records the packet loss %, then
emails a notice to one of two lists based on the loss-percentage. If nothing
else, it sets CIVars to the ping stats so they can be checked in JCL.
Enjoy,
Chris Bartram
----------------------------cut here--------------------------
parm ipaddr,n=20,b=1200,mailit="N",lim=0,sitename="",emerglim=100
#
# This command file pings a machine 'ipaddr' 'n' times with a packet
# 'b' bytes long. It records stats into a temp message file, then
# reads the stats back and looks for packet loss
# 'lim' is the max acceptable packet loss before an error is mailed
#
# If 'mailit'="Y" then we'll email a report to the netguys.data.sys
# distribution list.
# And if the packet loss is >=emerglim we'll email netguys2.data.sys
# (the emergency/urgent list)
#
continue
purge pingf > $NULL
build pingf;rec=-80,,f,ascii;msg
file pngf=pingf,old;acc=append
xeq ping.net.sys "!ipaddr,!n,!b" > *pngf
while finfo("pingf","EOF")>2 do
#
# eat records til the last two records
#
input _frec < pingf
endwhile
setvar _pingnode "!ipaddr"
setvar _pingloss 999
setvar _pingmax 0
setvar _pingavg 0
if finfo("pingf","eof")=2 then
input _frec < pingf
input _stats < pingf
if word("!_stats",,-1)="loss" then
setvar _pingloss word("!_stats",,-4)
setvar _pingmax 0
setvar _pingavg 0
else
setvar _pingloss word("!_frec",,-4)
setvar _pingmax word("!_stats","/ ",-1)
setvar _pingavg word("!_stats","/ ",-2)
endif
#
# the last two lines of the file will (normally) look like:
#
# 20 packet(s) transmitted, 20 packet(s) received, 0 % packet loss
# round trip (ms) min/avg/max = 4 / 5 / 12
#
deletevar _stats
endif
deletevar _frec
purge pingf > $NULL
showvar _ping@
IF UPS("!mailit")="Y" THEN
echo Problem pinging a host from the HP3000 > PNGM
echo !hpdatef !hptimef >> PNGM
echo See subject line >> PNGM
IF !_pingloss=999 THEN
continue
xeq sendhtml.xeq.sys ^netguys.data.sys,batch,,PNGM,&
'Problem pinging !_pingnode !sitename'
ELSE
IF !_pingloss>=!emerglim THEN
continue
xeq sendhtml.xeq.sys ^netguys2.data.sys,batch,,PNGM,&
'Urgent: Packet loss !_pingloss% to !_pingnode !sitename'
ELSE
IF !_pingloss>!lim THEN
continue
xeq sendhtml.xeq.sys ^netguys.data.sys,batch,,PNGM,&
'Packet loss of !_pingloss% to !_pingnode !sitename'
ENDIF
ENDIF
ENDIF
continue
purge pngm,temp > $NULL
ENDIF
----------------------------cut here--------------------------
______________________/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_
Chris Bartram Sales (US): 800 Net-Mail Fax:+1 503 361-8895
______ +1 503 361-8850 mailto:sales at 3k.com
/__ | \__________ Sales (Europe):+44(1480)414131 Fax:+44(1480)414134
/ / | / ________ Sales (Pacific):+61 3 9488 4333 Fax:+61 3 9482 5124
| /_ |< ______ Tech Support:+1 503 361-8833
\ __)| \ ___ mailto:support at 3k.com Me: rcb at 3k.com
\______/Associates, PO Box 6003, Springfield VA 22150
_________________Inc._/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_/\_
Gopher: gopher.3k.com Anon-FTP: ftp.3k.com WWW: http://www.3k.com/
|