【原文: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