Ping statistik med dato/klokkeslæt

Hvilken platform er du på (*nix, linux eller Ms)?

Det er muligt med værktøjet NetWox og evt. lidt perl, men det bliver en forholdsvis kompliceret løsning. Det er netwox værktøjerne 49 til 50 du bør kikke på

Der arbejdes på microsoft platform.

Windows 2000 server sp4

Hey tma !
Skal det være et script, der kører på en server eller arbejdsplads ?

/Killer

Det skal være et script der kører på en server i f.eks. et døgn

Torben

ok.
Dette script kan klare opgaven.
Du skal bare huske på, at det åbner en lille dos-boks i et splitsekund, når det pinger :o)

cpuadresse i linie 5 angiver den adresse, der skal pinges

set fso = createobject("scripting.filesystemobject")
set shell = createobject("wscript.shell")
const forappending = 8
file1 = "c:\ping.txt"
cpuadresse = "10.152.10.11"
Set fi = fso.OpenTextFile(file1, ForAppending, true)
for a = 1 to 10
set scping = shell.exec("ping -n 1 " & cpuadresse)
strresult = Lcase(scping.stdout.readall)
if instr(strresult, "reply from") then
strsvar = "maskinen svarede"
else
strsvar = "Der var timeout"
end if
fi.WriteLine (now() & " " & strsvar)
a = a-1
wscript.sleep 2000
next

/Killer

>> killer; jeg får Der var timeout selvom jeg sagtens kan pinge min adr. i en prompt...

Torben

øjeblik...

Jeg testede lige fra min egen maskine, og her skulle jeg naturligvis ændre til 'svar fra', da jeg kører dansk xp...

Virker perfekt på serveren!

Najs ;)
Tak for points
/Killer

Hej Killer

Liiiiige en lille detalje. Er det muligt at få ping tiden med? Hvis en linie f.eks. ser således ud:

svar fra xxx.xxx.xxx.xxx: byte=32 tid<1ms ttl=128

Vil jeg gerne have linien:  tid<1ms ttl=128
med. Jeg har selv forsøgt med mid og instr, men kan ikke skrue det rigtigt sammen.

Kan/vil du give denne feauture?

Torben

Det kan du tro !
Jeg er lige lidt ophængt lige nu, men fikser det lige til dig i aften !

/Killer

Så skulle den være der :))
Du skal nok tilpasse den lidt i linie 12, så den passer til din danske udgave :o)

set fso = createobject("scripting.filesystemobject")
set shell = createobject("wscript.shell")
const forappending = 8
file1 = "c:\ping.txt"
cpuadresse = "10.152.10.11"
Set fi = fso.OpenTextFile(file1, ForAppending, true)
for a = 1 to 10
set scping = shell.exec("ping -n 1 " & cpuadresse)
strresult = Lcase(scping.stdout.readall)
if instr(strresult, "reply from") then
strpil = instr(strresult,"<")-3
strsvar = mid(strresult,strpil,20)
else
strsvar = "Der var timeout"
end if
fi.WriteLine (now() & " " & strsvar)
a = a-1
wscript.sleep 2000
next

Mange tak.

Jeg havde som sagt selv forsøgt med mid og instr, men jeg havde dem indlejret i samme udtryk, måske det var det der gjorde forskellen.

Dejligt at få den skruet helt færdig...

Torben

Lidt ked at at forstyrre yderligere, men når jeg kører den på serveren kører den fint en 10-12 gange hvorefter den kommer med en fejl på mid funktionen. Det er sgu da underligt at funktionen godtages flere gange hvorefter den melder fejl???

Har du nogen forslag? (Udvider gerne spørgsmålet hvis du vil foretrækket det)

Kan problemet evt. omgås ved en On error bypass?

Torben

Hmmm ....
Det KAN være noget med strengen strsvar...
Det kan være det hjælper, at nustille svaret i hver gennemgang.
Se næstsidste linie

set fso = createobject("scripting.filesystemobject")
set shell = createobject("wscript.shell")
const forappending = 8
file1 = "c:\ping.txt"
cpuadresse = "10.152.10.11"
Set fi = fso.OpenTextFile(file1, ForAppending, true)
for a = 1 to 10
set scping = shell.exec("ping -n 1 " & cpuadresse)
strresult = Lcase(scping.stdout.readall)
if instr(strresult, "reply from") then
strpil = instr(strresult,"<")-3
strsvar = mid(strresult,strpil,20)
else
strsvar = "Der var timeout"
end if
fi.WriteLine (now() & " " & strsvar)
a = a-1
wscript.sleep 2000
strsvar = nothing
next

/Killer

Hej, er det ikke fordi I leder efter < i instr()? Den kan jo godt melde = istedet, engang i mellem.
Jeg har ikke lige tid til at teste eller skrive en ny kode da jeg har time, men det ser ud som om det kunne være et problem.

Det er sgu' da nok rigtigt :)
Jeg har ændret lidt i det, så den skulle være der :)
Hvis du kører dansk sprog, skal du bare rete "time" til "tid" :o)

set fso = createobject("scripting.filesystemobject")
set shell = createobject("wscript.shell")
const forappending = 8
file1 = "c:\ping.txt"
cpuadresse = "212.54.64.170"
Set fi = fso.OpenTextFile(file1, ForAppending, true)
for a = 1 to 10
set scping = shell.exec("ping -n 1 " & cpuadresse)
strresult = Lcase(scping.stdout.readall)
if instr(strresult, "reply from") then
strtime = instr(strresult,"time")
strsvar = mid(strresult,strtime,20)
else
strsvar = "Der var timeout"
end if
fi.WriteLine (now() & " " & strsvar)
a = a-1
wscript.sleep 2000
next

/Killer