Shulou(Shulou.com)06/03 Report--

In the windows condition, Ping is timestamped and saved to a file

Reprint: http://blog.csdn.net/byply/article/details/50628403

1. Create a new "ping.vbs" file on disk D and enter the following code:

Dim args, flag, unsuccOut

Args= ""

Otherout= ""

Flag=0

If WScript.Arguments.count = 0 Then

WScript.Echo "Usage: cscript tping.vbs [- t] [- a] [- n count] [- l size] [- f] [- I TTL] [- v TOS]"

WScript.Echo "[- s count] [[- j host-list] | [- k host-list]]"

WScript.Echo "[- r count] [- w timeout] destination-list"

Wscript.quit

End if

For iTunes 0 to WScript.Arguments.count-1

Args=args & "& WScript.Arguments (I)

Next

Set shell = WScript.CreateObject ("WScript.Shell")

Set re=New RegExp

Re.Pattern= "^ Reply | ^ request | ^ from | ^ request"

Set myping=shell.Exec ("ping" & args)

While Not myping.StdOut.AtEndOfStream

StrLine=myping.StdOut.ReadLine ()

WScript.Echo "original data" & chr (9) & strLine

R=re.Test (strLine)

If r Then

WScript.Echo date & "" & time & chr (9) & strLine

Flag=1

Else

UnsuccOut=unsuccOut & strLine

End if

Wend

If flag = 0 then

WScript.Echo unsuccOut

End if

2. Enter the following command:

Cscript ping.vbs www.baidu.com-t-l 1000-w 5000 > sseping.txt

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.