windows CMD 下 长ping 加时间戳,亲测有效
以下内容直接复制到txt文档,将.txt后缀改成.vbs。
将vbs文件放到C盘根目录, 直接双机打开,运行后C盘根目录下会有以ping的目的地址为文件名的txt文档。
Set shell = WScript.CreateObject("WScript.Shell")
'脚本解析引擎,创建一个命令窗口对象
Dim ipstr,pingstr
ipstr="www.baidu.com"
'需要ping的目录Ip
Set fso=createobject("scripting.filesystemobject")
'创建了一个FSO对象,然后中用它来读写文本文件,删除文件等
Set file = fso.createtextfile("c:\ping" & ipstr & ".txt")
'用fso创建一个文件
Set myping=shell.Exec("ping -t " & ipstr )
'执行的命令
while Not myping.StdOut.AtEndOfStream
'如果文件指针位于 命令行文件末,则返回 True;否则返回 False
strLine = myping.StdOut.ReadLine()
'读取此行
file.writeline date & " "& time & chr(9) & strLine
'写入文件
Wend