文本记录任意时刻的ping值

【原文：http://summerjxm.blog.163.com/blog/static/803814312011101423521438/】

  在c:\建立三个文件“123.bat”、“123.vbs”、“123.txt”

    在123.vbs中输入：

          

Set shell = WScript.CreateObject("WScript.Shell")
Set re=New RegExp
re.Pattern = "^Reply|^Request"
Set myping=shell.Exec("ping 119.75.218.45 -t")
while Not myping.StdOut.AtEndOfStream
 strLine = myping.StdOut.ReadLine()
 r=re.Test(strLine)
 If r Then
  WScript.Echo date & " "& time & chr(9) & strLine
  shell.Run "cmd /c @echo "& date & " "& time & chr(9) & strLine &">>123.txt",1
 End if
Wend

 并保存。

  在123.bat中输入：

 

   c:
   cscript 123.vbs

 并保存。

双击 123.bat