Win10中使用ping加时间及次数

Win10中使用ping但没有记录时间等，。用VBS实现记录ping并加入了时间及次数。

具体命令

Dim i
i=0
Set shell = WScript.CreateObject("WScript.Shell")
Set re=New RegExp
re.Pattern = "^Reply|^Request"
Set myping=shell.Exec("ping -n 100000 -l 65500 192.168.1.2")
while Not myping.StdOut.AtEndOfStream
strLine = myping.StdOut.ReadLine()
r=re.Test(strLine)
If r Then
WScript.Echo date & " "& time & chr(9) & strLine
End if
Wend

提示说明：
1、"ping -n 100000 -l 65500 192.168.1.2" 表示发送100000个大小为65500的包到192.168.1.2
2、对于win10有些系统是中文版，需要转化命令提示符后使用，输入chcp 437，因为测试过程遇到Pattern不能获取中文。
3、使用范例：在命令提示符中，输入"cscript C:\Desktop\PingTest.vbs >> C:\Desktop\新建文本文档.txt"
4、在win10的WSshshell中操作出现过错误，可能存在软件兼容问题，且之后换到CMD中操作输出的文本同样乱码（用echo 111>>C:\Desktop\新建文本文档.txt 同样出现乱码，说明一开始文本格式都有问题，之后重新建立输出的新建文本正常）