Hej
Försöker få ett script att pinga en nod och returnera enbart resultatet (svarstid)
Lyckades lägga vantarna på ett script som jag vet fungerar.
Kan dock vara så att han kör det på en svensk XP och jag kör det på en engelsk XP
Hur som helst fungerar det inte för mig och jag är en noob när det gäller VBscript så jag kan inte lösa det.
Kanske kan någon av er hjälpa mig.
Scriptet ser ut så här.
'Syntax = cscript.exe //NoLogo PingStat.vbs <datornamn eller ip>
'
'
Option Explicit
Dim objArgs, oShell, CmdOutput, M_Value, I, ArrStr, Cmd
'Här ställer man in defaultvärde
M_Value=2000
Set objArgs = WScript.Arguments
Set oShell = CreateObject("Wscript.Shell")
Set Cmd = oShell.Exec("ping " & wscript.arguments(0))
While Not Cmd.StdOut.AtEndOfStream
CmdOutput = UCase(Cmd.StdOut.Readline())
If InStr(CmdOutput,"MEDEL") Then
ArrStr=Split(CmdOutput)
M_Value=ArrStr(14)
End if
Wend
'For I=0 to UBound(ArrStr)
'wscript.echo I & "=" & arrstr(I)
'Next
wscript.echo M_Value
När jag sen ska köra scriptet så skrivar jag i cmd tex.
Och då var min förhoppning att jag skulle få svarstiden från https://www.sunet.se till min txt fil.
Men det enda som den exporterar dit är M_Value värdet som är 2000.
Är det någon som kan tipsa om vad som inte stämmer så skulle det vara guld värt :)
Tanken med detta är att jag sen ska använda det värdet till att lägga en graf i mrtg på svarstider till vissa noder.
/Red....
Vet inte om det hamnade rätt men någon får väl flytta den om den är i fel forum.
Felet är att 14 är utanför arrayen. Använd följande (fungerar iaf för mig):
'Syntax = cscript.exe //NoLogo PingStat.vbs <datornamn eller ip>
'
'
Option Explicit
Dim objArgs, oShell, CmdOutput, M_Value, I, ArrStr, Cmd
'Här ställer man in defaultvärde
M_Value=2000
Set objArgs = WScript.Arguments
Set oShell = CreateObject("Wscript.Shell")
Set Cmd = oShell.Exec("ping " & wscript.arguments(0))
While Not Cmd.StdOut.AtEndOfStream
CmdOutput = UCase(Cmd.StdOut.Readline())
If InStr(CmdOutput,"MEDEL") Then
ArrStr=Split(CmdOutput)
M_Value=ArrStr(UBound(ArrStr))
End if
Wend
'For I=0 to UBound(ArrStr)
'wscript.echo I & "=" & arrstr(I)
'Next
wscript.echo M_Value
cscript //NoLogo PingStat.vbs webforum.nu gav mig: 39MS som svar
